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ABSTRACT 


A 16  - level  color  display  computer  proaram  for  use  with 
an  ultrasonic  acoustic  imaqinq  system  is  presented.  This 
display  system  is  the  second  half  of  a two  part  ultrasonic 
imaqing  system  built  at  the  Naval  Postqraduate  School.  The 
RAMTEK  GX-100A  display  terminal  and  a POP  11/50  digital  com- 
puter were  used  as  the  display  system.  The  software  imple- 
mentation and  C 1 anquaqe  a re ' d i scussed . Photographs  of  ac- 
tual display  using  an  experimental  data  tape  and  the  comput- 
er program  are  also  included. 
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I INTRODUCTION 


This  thesis  deals  with  the  develooment  of  a 16-level 
color  displav  computer  proaram#  for  use  in  a computer  aided 
acoustic  imaging  system.  The  basic  imaaing  system  consists 
of  a data  acquisition  system  [1]/  a computer  program  for 
converting  the  data  and  controlling  the  display  hardware# 
and  the  hardware  for  disolayinq  the  outnut. 

The  hardware  display  portion  utilizes  a RAMTEK  GX-100A 
color  raster  scan  display  device  that  is  controlled  by  a 
PDP-11/50  digital  computer.  This  allows  for  real-time  com- 
puter controlled  displays  to  be  presented. 

Reference  (11  discusses  in  deoth  the  specific  methods 
used  for  data  collection  and  will  not  be  elaborated  upon  in 
this  thesis. 

Section  II  Provides  bachqround  information  about  acoust- 
ical imaging  and  the  computer  proaram  will  be  discussed  in 

1 

Section  III  of  this  thesis.  Actual  program  listinas  are 
given  in  Appendix  D.  The  equipment  utilized  for  the 
disolayinq  of  data  will  also  be  discussed  in  Section  III  of 
this  thesis. 

In  order  to  confirm  the  system  realiability  a data  set 
was  read  into  the  PDP-11/50  and  was  used  as  the  development 
t ape . 
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II  BACKGROUND 


A.  ACOUSTICAL  IMAGING  [31 

By  usina  coherent  ultrasonic  waves  of  sound  instead  of  a 
beam  of  coherent  light  to  "illuminate"  an  object  one  can 
create  acoustical  holoqrams  that  become  three-dimensional 
pictures  when  illuminated  by  laser  light. 

In  order  to  produce  an  acoustical  hologram  the  scene  is 
"illuminated”  with  a pure  tone  of  sound.  The  objects  dis- 
turb the  sound  waves  and  produce  interference  patterns. 
This  procedure  is  discussed  in  detail  in  Ref.  [21  The  pat- 
tern can  be  recorded  in  various  ways.  Once  recorded  the 
acoustical  hologram  can  be  reconstructed  with  a laser  beam 
exactly  as  if  it  were  an  optical  hologram.  Other  techniques 
such  as  computer  processing  can  also  be  used  to  reconstruct 
the  objects. 

The  interaction  of  sound  with  solids  and  liquids  is  dif- 
ferent than  the  interaction  of  e 1 ec t r o-maqne t i c radiation. 
Sound  can  travel  a considerable  distance,  through  dense, 
homogenous  matter  and  lose  little  energy  and  yet  it  will 
lose  a significant  amount  of  energy  when  it  passes  through 


an  interface 


This  loss  is  due  to  reflection  at  the  interface/ 


which  is 


converse  to  the  energy  losses  that  occur  in  e 1 ec t ro-maqnet i c 
radiation  Therefore  sound  can  be  significantly  effective  in 
medical  diagnosis/  in  non-destructive  test i no  and  in  seeina 
underwater  and  underground  because  it  is  mostly  the  discon- 
tinuities of  the  internal  oraans  tumors/  flaws/  submeraed 
objects  or  subterranean  strata  rather  than  the  bulk  matter/ 
that  is  of  interest  to  the  observer. 

Acoustical  imaqing  is  not  new?  there  are  sonar  devices 
that  produce  pictures  similar  to  those  on  a radar  screen/ 
and  can  be  used  for  prospect ina  for  oil  and  minerals.  Simi- 
lar scanning  methods  are  also  in  use  by  physicians  for  the 
detection  of  brain  tumors  and  for  examing  the  unborn  child. 
In  the  latter  examples  the  sound  is  a frequency  of  between 
one  and  ten  megahertz.  Another  techniaue  employs  an  acousti- 
cal " camera".  In  this  method  sound  waves  bounced  off  an  ob- 
ject once  focused  with  an  acoustical  lens  onto  an  imaoe  con- 
verter that  translates  the  patterns  of  sound  intensity  into 
a pattern  of  visible  liaht. 

The  limiting  feature  of  both  these  conventional  methods 
is  that  the  images  show  only  two  dimensions.  They  are  two- 
dimensional  because  the  methods  detect  only  the  intensity 
(the  sauare  of  the  amoltitude)  of  the  sound  waves  in  the 
sound  imaqes.  What  the  conventional  methods  are  unable  to 
record  is  the  phase  information/  that  is/  the  arrival  time 
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of  the  crest  of  the  wave  from  the  object  with  resoect  to  the 
arrival  time  of  the  crest  of  a reference  wave  of  the  same 
f requenc  v . 

The  most  powerful  feature  of  holoqraphy  is  that  phase 
information  as  well  as  intensity  information  is  retained  in 
the  holoqram  and  can  be  subsequently  "played  back"  in  the 
optical  image.  Thus  in  acoustical  holoqraphy  there  is  a to- 
tal transfer  of  information  from  the  acoustical  wave  field 
to  the  visible  optical  wave  field. 

One  type  of  acoustic  holoqraohic  system  which  has  been 
investigated  is  that  which  uses  a scanning,  detectinq  trans- 
ducer movinq  throuqh  a raster  oattern  in  the  holooraphic 
plane.  A typical  system  is  illustrated  in  Fiq.  1.  The  pro- 
cedure involved  was  first  described  in  an  elementary  form  by 
Thurstone  in  1966  [5J . Normally  water  is  used  as  the  medium 
for  the  acoustic  propagation.  A sound  source  is  placed  on 
one  side  of  the  object  and  a scanning  hydrophone  on  the  oth- 
er. The  use  of  a reference  beam  may  be  eliminated  by  means 
of  electronic  simulation.  The  acoustic  object  beam  alone  is 
detected  and  the  detector  outout  is  added  electronically  to 
reference  signal  cominq  from  the  same  siqnal  generator  that 
supolies  power  to  the  irradiating  sound  source.  The  result- 
ing siqnal  can  then  be  processed  to  measure  amplitude  and 
phase  which  are  subsequently  recorded.  In  one  version  the 
signal  is  used  to  modulate  the  brightness  of  a small  lamp 
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that  travels  through  a raster  Dattern  in  synchronism  with 
the  scanning  hydroohone.  The  lamp  brightness  as  a function 
of  oostion  can  be  recorded  on  ohotograchic  film. 

What  has  been  described  thus  far  is  the  most  convention- 
al of  the  poi nt -by-po i nt  scannina  systems.  However  it  is 
possible  to  scan  in  many  other  ways.  One  example  is  sug- 
gested by  the  fact  that  reciprocity  holds  between  the  il- 
luminating transmitter  and  the  sensor.  In  this  method,  the 
point  transmitter  is  scanned  over  the  hologram  aperature 
while  the  sensor  remains  fixed. 


'So  cr  J&.  C €L 


Point  by  Point  Scannina  System 


Figure  1 


Another  example  allows  both  the  transmitter  and  sensor 


to  be  ganged  together  and  made  to  scan  as  a unit  over  the 
holographic  aperture.  And  yet  another  method  is  to  hold 
both  the  transmitter  and  sensor  stationary  and  scan  the  ob- 
ject to  obtain  an  eauivalent  holoqram.  One  of  the  problems 
with  all  these  approaches  is  that  the  scannina  is  inherently 
si ow/fflany  transits  of  the  scanning  transducer  are  involved 
for  wide  band  holograms.  In  order  to  overcome  this  problem 
various  modifications  have  been  prooosedf several  of  which 
involve  the  use  of  transducer  arrays.  The  arrays  may  be  ei- 
ther of  one  or  two  dimensions  and  may  be  sampled  or  scanned 
mechanically  or  .electrically.  In  general  these  systems 
operate  faster  but  typically  do  not  provide  as  much  image 
information  because  of  1 imat ions  on  the  number  and  uniformi- 
ty of  the  elements  of  the  array. 

As  reported  in  Ref.  (21 t a oreliminairy  version  of  ul- 
trasonic imaqing  system  with  capability  of  two  dimensional 
coherent  data  processing  and  computer  image  processing  has 
been  built  and  tested  at  the  Naval  Postgraduate  School 
(NPS)  . 

Reference  [ ? ] also  indicated  that  further  work  was  re- 
quired to  develop  more  software  for  processing  and  display- 
ing of  images  produced  by  the  system.  This  thesis  deals 
with  efforts  in  this  direction. 


B.  DATA  COLLECTION 


The  type  of  system  from  which  the  data  for  this  thesis 
was  created  is  described  in  detail  in  Ref.  121. 

Introductory  information  is  included  herein.  The  object 
is  insonified  by  a 6"  (15.24  cm.)  diameter  qold  coated 
quartz  tranducer  The  transmitted  or  reflected  wave  is 
detected  coherently  (ie./both  amplitude  and  phase)  in  some 
portion  of  a diffraction  olane  located  an  arbitary  distance 
from  the  object.  Detection  of  the  complex  wave  is  accom- 
plished by  a rasterscan  of  a sinqle  .04"  (1.01mm)  diameter 
PZT-5  ceramic  receiver  with  a fundamental  frequency  of-  1.014 
MHz.  Piezoelectric  receivinq  elements  offer  an  ideal  combi- 
nation of  linearity  and  sensitivity Tb)  for  this  application. 

After  wave  detection  , the  amplitude  and  phase  of  the 
wave  are  sampled/  dioitized/  and  recorded.  The  recorded 
data  is  then  entered  in  the  computer  processinq  oortion  of 
the  system  at  a later  time.  As  indicated  the  Naval  Postgra- 
duate School  (NPS)  system  consists  of  two  parts  : the  data 
acquisition  section  and  the  computer  processinq  and  display 
section.  The  emphasis  of  this  thesis  has  been  placed  on  the 
presentation  of  the  computer  oroqram  used  to  display  the 
data  that  was  produced  in  the  system  previously  discussed. 
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Ill  DISPLAY  SYSTEM 


A.  GENERAL  DESCRIPTION 

The  disolay  system  used  is  currently  in  operation  at 
the  NPS  utilizinq  a POP  - 11/SO  digital  computer  interfaced 
with  a RAMTEK  GX  - 100A  terminal  and  disolay  screen,  to  gen- 
erate the  16  - level  color  code  displays  of  the  diaifized 
data. 

Figure  2 shows  a basic  block  diagram  of  the  PDP  - 11  and 
RAMTEK  GX  - 100A  system  as  used. 

The  RAMTEK  GX  - 100A  graphics  display  system  utilizes  a 
raster  scan  technique,  with  the  display  image  data  being  ex- 
tracted from  an  internal  refresh  memory.  The  RAMTEK  system 
in  operation  at  the  NPS  Computer  Laboratory  is  hosted  by  the 
PDP  - 11/50  computer  and  is  accessed  through  this  computer 
and  its  PWB/UNIX  operating  system,  from  one  of  the  terminals 
in  the  lab. 
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The  PWB/UNIX  operatinq  system  is  a 1 
statements  that  allow  system  operation 
simple  call  statements.  The  C 1 anquaae 
cussed  in  this  thesis  are  written  for 
PW8/UNIX  ooeratina  system  and  use  many 
calls. 


brary  of  executable 
to  be  controlled  by 
171  proqrams  di  s- 
execution  under  the 
of  these  library 


Block  Diaqram  o*  the  Display  System 
F i qu  re  ? 
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RAMTEK  Equ i pmen t 


The  RAMTEK  GX  - 100A  is  a color#  raster  scan  display 
device#  the  heart  of  which  is  a color  cathode  rav  tube#  not 
unlike  a home  color  television  set.  The  method  for  generat- 
ing its  raster  scan  picture  is  identical  to  commercial 
cathode  ray  tubes.  This  is  the  only  real  similarity.  The 
RAMTEK  gets  the  information  for  its  picture  from  a special 
video  generator  which  reads  the  contents  of  a MOS  refresh 
memory  which  contains  all  the  information  needed  to  produce 
an  image  on  the  screen. 

It  is  not  the  intent  of  this  thesis  to  discuss  the 
details  of  how  the  electronics  function#  but  to  inform  the 
user  as  to  how  to  use  the  device  to  display  the  given  data. 
A more  detailed  discussion  of  the  functioning  of  the  RAMTEK 
can  be  found  in  the  RAMTEK  GX  - 100A  [81  and  RAMTEK  GX  -1008 
19)  programmers  manual. 

2 . Ooe  ration 

The  RAMTEK  system  consists  of  a software  interface 
to  the  user#  a displav  generator#  keyboard#  video  lookup 
table  and  a cathode  ray  tube.  Figure  3 illustrates  their 
relationship. 
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The  user  oroqram  executes  on  the  P D P -11/SO  comput- 
er. When  the  aoDroori ate  instructions  are  executed#  the  in- 
terface between  the  proaram  and  the  display  qenerator  for 
the  RAMTEK  is  activated.  Information  can  be  sent  via  the 
interface  to  the  display  aenerator  from  the  user  program  or 
from  the  keyboard.  Information  can  also  be  sent  from  the 
keyboard  via  the  interface  to  the  user  program.  The  display 
generator  interprets  its  instructions  and  constructs  the 
disolay  in  its  ROM  memory.  The  imaae  is  generated  on  the 
CRT  accordinq  to  the  colors  contained  in  the  video  lookup 
table.  Any  image  will  remain  ( unless  over  - written  )#  for 
an  indefinite  period  of  time  in  the  ROM  memory. 

The  RAMTEK  graphics  disolay  system  in  the  NPS  Com- 
puter Laboratory  utilizes  a raster  scan  cathode  ray  tube 
with  a screen  resolution  of  240  horizontal  lines  and  640 
elements  on  each  line.  Each  specific  element  is  referred  to 
as  a pixel.  This  device  has  a hiqh  element  resolution  and  a 
low  line  resolution.  Therefore#  the  quality  of  certain  im- 
aaes  on  the  RAMTEK  may  be  less  than  desirable.  Lines  that 
are  not  horizontal  or  vertical  are  drawn  with  a n o n c on- 
t i n o u s > staircase  effect.  When  utilizing  the  device  these 
resolution  factors  should  be  kept  in  mind#  espically  when 
operating  in  one  of  the  data  modes. 
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Color  is  generated  by  mi x i na  three  primary 
blue*  areenr  and  red  each  in  varying  intensities 
15. 


RAMTEK  Disolay  System 
Figure  3 


c o 1 o r s : 
from  0 to 
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a.  Virtual  Screen  Addressing 

The  initialization  of  R A M T E K # which  is  accom- 
plished by  the  execution  of  the  instruction  "ramtekO"# 
sets  various  default  values.  The  virtual  screen  is  set  to  a 
standard  cartesian  coordinate  system#  with  (0.0, 0.0)  at  the 
lower  left  corner  of  the  screen#  and  (100.0,100.0)  at  the 
uooer  riqht  corner.  This  virtual  screen  can  be  redefined  by 
execution  of  a "screen(x#y#xl,yl)"  instruction#  where  x and 
y's  are  floating  point  numbers. 

Upon  execution  of  ramtekO#  a shades  of  grey 
color  table  (table  0)  is  loaded#  with  color  entry  15  of  the 
table  enabled  for  display  Purposes.  Tt  selects  the  al- 
phanumeric control  mode  and  ooens  the  RAMTEK  for  readino  and 
writing  and  finally  erase  the  screen  of  any  previous  images 
or  displays. 

There  are  three  modes  of  addressing  the  screen# 
absolute#  indexed#  and  relative.  The  program  in  this  thesis 
was  done  in  the  absolute  mode#  in  which  the  user  specifies  a 
specific  location  on  the  user  defined  screen  by  issuino  a 
"strtxy(x#y)"  instruction.  The  ' x ' and  ' y ' values  establish 
the  current  ooeratinq  position  (COP)  location.  A discussion 
of  the  other  modes  of  addressi na  can  be  found  in  Ref.  (101  . 
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b.  Control  Modes 

The  RAMTEK  ooerates  in  any  one  of  eiaht  modes. 
Each  mode  has  associated  with  it  certain  control  flags  which 
modify  the  operation  of  the  specific  instruction  within  each 
mode.  Table  I summarizes  the  control  modes  and  control  flags 
and  their  relationships. 

TABLE  I 

CONTROL  MOOES  ANO  CONTROL  FLAGS 


number 

MODE 

name 

IX 

BK 

CONTROL 

AW 

FLAGS 

DW 

FP 

0 

ALPHANUMERIC 

X 

X 

X 

X 

1 

TRANSVERSE  DATA 

X 

X 

X 

X 

2 

RASTER  DATA 

X 

X 

X 

X 

3 

COMPLEX  DATA 

X 

X 

X 

X 

a 

GRAPHIC  VECTOR 

X 

X 

X 

5 

GRAPHIC  PLOT 

X 

X 

X 

X 

6 

GRAPHIC  CARTESIAN 

X 

X 

X 

7 

GRAPHIC  ELEMENT 

X 

X 

X 

definitions:  IX  - Index  Addressing 

8K  - Reverse  Background 
AW  - Additive  Write 
DW  - Ooub 1 e Width 
FP  - Fixed  point 

X - Control  flea  has  an  effect  in  this  mode 
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A 1 ohanumer i c Data  Mode . The  alohanumer- 


( 1 ) 

ic  data  mode  is  the  default  mode  uoon  initialization  of  the 
RAMTEK.  The  COP  is  established  by  the  execution  of  a 
stPtxv(x»y)  instruction.  Followinq  this  instruction  the  in- 
struction "st  rout ( " character  strina  " ) " will  allow  a char- 
acter strina  to  be  output  to  the  RAMTEK  screen.  The  charac- 
ter strina  can  be  no  Greater  than  100  characters  long  beqin- 
ninq  at  the  current  operating  position  and  continuing  on  the 
same  line.  After  completion/  an  automatic  line  feed  occurs 
which  defines  a new  COP  on  the  next  line  at  the  same  start- 
ing point  ( in  x ) as  the  previous  line. 

When  characters  are  drawn  on  the  RAMTEK 
screen/  the  character  appears  in  the  desianated  color,  while 
the  rest  of  the  screen  is  drawn  in  the  background  color. 
The  description  of  how  the  color  designation  is  accomplished 
will  be  discussed  in  Section  III  - c of  this  thesis. 

( 2 ) Transverse  Data  Mode.  The  typical  use 
of  the  transverse  data  mode  is  to  define  special  symbols  and 
characters  which  can  not  be  found  in  the  standard  character 


set 


The  various  data  modes  all  have  one  thinq 
in  common , namely  the  "data(name,m)M  instruction.  This  in- 
struction causes  the  raw  data  that  is  passed  in  a linear  ar- 
ray Dointed  to  by  "name”  to  be  displayed  on  the  screen 
depending  upon  the  current  control  mode.  Here  "m"  is  the 
number  of  bytes  in  the  inteaer  array  named  'name'. 

The  execution  of  the  dataC  name*  m)  in- 
struction writes  the  information  in  raw  format/  that  is  each 
data  byte  is  interpreted  as  a sinqle  bit  per  pixel  descrip- 
tion of  eight  consecutive  pixels  along  a real  screen  line. 
As  is  illustrated  in  Fio.  4.  execution  of  the  instructuion: 

dat  a ( 0 1 5022 / 

133000, 

000101); 

causes  each  of  the  three  words  (015022,  133000,  000101)  to 
be  converted  to  binary  representation.  Eight  binary  digits 
(ones  or  zeros)  are  then  used  sequentially  to  produce  an  im- 
age with  each  pixel  that  corresponds  to  a binary  one  being 
intensified,  while  the  zeros  remain  the  background  color. 
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0 1 S 0 2 2 


data  (015022 
1 35000, 

oooioi); 


0001101000010010 

1011011000000000 


0000000001000001 


0 0 


■V 

0 


new  Cop 


Transverse  Oata  Mode 
F i qu  re  4 
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(3) 


Raster  Data  Mode.  The  raster  data  mode. 


except  for  the  direction  of  the  writing  process  is  identical 
to  the  transverse  data  mode.  The  consecutive  bytes 
transmitted  by  the  da  t a ( ) instruction  are  written  horizon- 
tally from  left  to  riaht  without  starting  a new  line  after 
eight  hits  are  displayed.  This  is  illustrated  in  Fig.  S 
where  the  completion  of  eight  bits  (pixels)  does  not  cause 
the  COP  to  move  to  a new  line. 

( 4 ) Complex  Data  Mode.  This  mode  writes  data 
on  the  screen  in  the  same  manner  that  the  raster  data  mode 
does.  However  each  pixel  is  described  by  four  bits  of  data 
instead  of  three.  Thus,  a single  data  word  describes  four 
pixels  instead  of  two  as  in  the  previous  data  modes. 

The  color  of  each  pixel  being  passed  is  de- 
fined by  the  four  bits  that  are  assigned  to  that  pixel. 
This  mode  over-rides  the  color  designated  by  the  "colorO" 
instruction.  Unusual  and  unrealistic  displays  and  images 
can  be  very  easily  achieved  by  the  use  of  this  data  mode. 
Figure  6 illustrates  how  a data  word  is  interpreted  in.  this 
mode.  The  data  word  is  converted  to  binarv  representation 
and  each  set  of  four  bits  represent  an  entry  index  of  the 
current  color  table.  The  colors  are  drawn  sequentially  on 
the  screen,  usinq  only  four  pixels  per  data  word.  The 
colorC)  instruction  will  be  described  in  Section  III  - c. 
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I old  COP 


0001  1010000100  10 
1 0 1 1 01  1000000000 
0 o 00000  00  1^  0 0 0 001 
0 0 0 1 0 1 


Raster  Data  Mode 
Figure  5 
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da  t a ( 175163) ; 


OATA  WORD 


Comdex  Data  Processinq 
F i q u r e 6 
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(5)  Graphic  Vector  ^ode.  The  four  graphic  modes 


are  used  primarily  for  interactive  drawinq  and  plotting  of 
data  provided  by  the  user.  The  qraphic  vector  mode  draws 
lines  between  arbitrary  end  Points.  The  starting  point  is 
defined  bv  the  existinq  COP  or  it  can  be  defined  by  the  exe- 
cution of  strtxyCxfV),  to  establish  a new  COP.  The  end 
points  can  be  defined  by  issuing  either  a "point (x^v)"  or 
"oointr(x»y)"  instruction.  The  first  uses  absolute  or  in- 
dexed addressing,  depending  uoon  the  control  flags  condi- 
t ion»  and  the  second  uses  relative  addressing.  The  values 
of  x,  and  y are  real  and  must  be  exclusively  different  than 
the  current  ooeratinq  point  values.  After  execution/  the 
COP  is  then  the  end  point  of  the  vector  just  drawn.  Thus  a 
linked  line  as  shown  in  Fiq.  7 can  be  drawn  by  issuing  a 
strtxyO  followed  by  successive  oointO  instructions. 


I 
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Ins  t rut i ons 


set  mode ( 4 , 0 ) ; 
strtxy(10. 0,10.0); 
do int(5. 0,8.0); 
do i n t ( 1 2 . 0,9.0)? 

do i n t r ( - 1 . 0 , 2 . 0 ) ; /*  relative  */ 


(11,11) 


\ 


Drawinq  vectors  in  Graphic  Vector  Mode 

Figure  7 
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(6)  G r a o h i c Plot  Mode 


The  displays  generated 


by  the  qraphic  plot  mode  have  been  implemented  as  a set  of 
plot  routines  in  the  user  interface.  The  three  routines  are 
"olototO”  (plots  points)  "olotlnO”  (plots  conti  nious 
lines)/  and  "olothO",  (plots  a histoqram).  Each  of  the 
methods  require  the  user  to  specify  the  points  to  be  plot- 
ted. All  three  plotting  methods  are  illustrated  in  Fig.  8. 
Detailed  instructions  on  their  use  can  be  found  in  Appendix 
8 of  Pef . (10)  . 

( 7 ) Graphic  Cartesian  Mode.  The  graphic 
cartesian  mode  draws  solid  rectangles  between  arbitrary  end 
points.  The  end  points  are  defined  as  the  lower  left  and 
upper  riqht  corners  of  a rectangle.  The  COP  is  the  comple- 
tion point  of  the  drawinq  unless  a new  COP  is  defined  with  a 

J 

strtxyO  instruction.  Second  and  subsequent  rectangles  can 
be  drawn  by  the  use  of  point()  or  oointrO  instructions. 
With  the  fixed  point  flaq  setr  a strtxyO  instruction  deter- 
mines the  common  point  for  and  between  subsequent  p o i n t ( ) or 
Pointr()  instructions.  Figure  9 illustrates  these  charac- 
teristics. 
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pi Otpt  ( ) 


p 1 ot 1 n ( ) 


P 1 ot  h C ) 


Graphic  Plot  Mode 
F i qu re  fl 


3? 


Inst  rue  t i ons 


set  mode (6,0); 
st  rt  x y ( 1 0 . , t 0 ) ; 
col  or ( 1 ) ; 

Doint(12.14.);  / * Draw  A in  color  1 * / 

col  or (2)  ; 

do i n t ( 1 4 . , 1 5 . ) ; /*  Draw  0 in  color  2 */ 
fixot(l),  / * set  fixed  ooint  * / 
strtxy(5.,5.); 

do i n t ( 3 . , 2 . ) ; /*  Draw  C in  color  2 */ 
color(3) ; 

do int(7.,4.);  /*  Draw  D in  color  3 */ 


3 

A 

\ 

(12,14) 



(10,10) 


1 4, 15) 


(5,5) 


(3,2) 


(7,4) 


Graohic  Cartesian  Mode 
Figure  9 
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(8) 


Graphic  Element  Mode.  The  graphic  element 


mode  draws  a single  pixel  on  the  screen  as  determined  bv  a 
pointO  or  a oointrC)  instruction.  After  execution,  the  COP 
is  on  the  same  real  screen  line  and  one  screen  element  to 
the  right. 
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c.  Color  Usaae 

A1]  images  that  are  displayed  on  the  screen  are 
displayed  according  to  an  entry  in  the  video  look-up  table/ 
which  is  commonly  called  the  color  look-up  table. 

( 1 ) Defining  Colors.  The  RAMTEK  hardware  de- 
fines colors  by  the  combining  red/  blue  and  green  in  varyinq 
intensities  to  produce  color.  Since  the  color  lookup  table/ 
(from  which  the  CRT  receives  its  instructions  on  how  to  mix 
the  three  colors/ ) stores  information  in  digital  format/  the 
user  is  limited  to  2 T 1 2 (4096)  possible  color  definitions. 
In  order  to  define  an  entry  in  a color  table/  the  instruc- 
tion "triple(b/g/r)"  is  used  to  convert  the  three  input 
parameters  blue  (b)/  green  (g)/  and  red  (r)  into  an  integer 
which  is  used  for  insertion  into  a color  table  entry.  Each 
entry  represents  the  code  for  a color  in  a twelve  bit  word. 
Each  word  is  broken  into  three/  four  bit  binary  numbers 
which  represents  intensities  of  blue/  green/  and  red  to  be 
mi xed. 

A color  table  that  can  be  used  for  an  image 
is  limited  to  sixteen  entries/  these  are  the  only  colors 
that  can  be  displayed  at  any  one  time  on  the  screen.  Entry 
zero  of  the  color  table  is  used  as  the  background  color/ 
thus  leavina  the  fifteen  other  colors  for  use  in  display ina 
images  on  the  screen. 
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As  one  becomes  familier  with  the  RAMTEK 
display  it  will  become  obvious  that  many  of  the  "colors"  are 
simDly  shades  of  the  same  color,  many  of  which  apoear  to  be 
almost  black  or  almost  white.  It  is  extremely  difficult  for 
an  ordinary  person  to  distinguish  between  (0,0,0)  , 
(0,0,1),  (0,1,0),  or  (1,0,0)  all  of  which  are  very  'close' 
to  black. 

The  RAMTEK  interface  system  permits  the  use 
of  eighteen  separate  color  tables,  the  first  four  tables  ( 0 
thru  3 ) are  system  reserved  tables,  and  can  not  be  modified 
in  any  way.  The  user  may  define  as  many  additional  color 
tables  as  desired  up  to  fourteen  others,  as  described  in  the 
following  section.  The  system  color  tables  are: 

table  0 - shades  of  grey  table  1 - shades  of  blue 
table  2 - shades  of  green  table  3 - shades  of  red 

(2)  Loading  a Color  Table.  Loading  a user  gen- 
erated color  table  reouires  a series  of  operations.  First 
an  integer  array  of  sixteen  words  must  be  declared.  Then  it 
is  necessary  to  load  each  entry  of  the  array  from  zero  to 
fifteen  with  the  sixteen  colors  that  are  desired.  In  order 
to  accomplish  this,  the  triole(b,g,r)  routine  is  used  to 
code  the  ordered  triples  and  then  assign  the  returned  codes 
to  each  entry  in  the  integer  array. 
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After  the  array  has  been  loaded/  the  rou- 
tine "cl rtbl (n>name)"  is  used  to  load  the  array  into  the  ac- 
tual color  table/  numbered  'n'/  where  n is  the  number  of  the 
table  between  four  and  seventeen/  and  named  'name'.  An  ex- 
ample of  the  code  to  load  a color  table  is  as  follows: 

int  aatl61  ; /*  declare  a 16  word  array  */ 


aa  [0] 
aa  1 1 ] 
aa  12] 
aa  [3] 
aa  [4] 
aa  [151 


clrtbl(5/aa)/  / * 


load  color  table  5 with 
the  array  aa  * / 


- triole(0/0/0);  / * 

- triole(15/0/0);  /* 

= triple(0/15/0)/  / * 
= t r i d 1 e ( 0 / 0 / 1 5 ) / /* 
= triole(15/0/8)  / * 

- triple  (15/15/15) 


color  black  * / 
color  blue  * / 
color  qreen  */ 
color  red  * / 
color  violet  */ 

/ * color  white  * / 
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d . Proqrammina  the  RAMTEK 


In  order  to  use  the  RAMTEK  system  it  is  neces- 
sary to  place  prior  to  any  RAMTEK  instructions  in  the  C 
language  program  the  ramtekO  routine.  This  routine  must  be 
the  first  call  made  in  the  user  program.  It  is  the  initial- 
ization routine  for  the  user  interface  and  it  opens  the  RAM- 
TEK device  and  keyboard. 

In  order  to  utilize  the  interface#  when  compil- 
ing a C language  proqram  for  RAMTEK  the  system  command  is  : 

V.  ramtek  filename. c 


Appendix  A contains  a list  of  reserved  words. 
These  words  should  not  be  used  within  any  user  programs  that 
utilize  the  user  interface  for  the  RAMTEK  system. 
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B 


DISPLAY  PROGRAM 


1 . C Language 


This  disDlay  system  was  implemented  in  the  C pro- 
gramming  1 anquage  17] , and  is  hosted  by  a POP  - 11/50  com- 
puter in  the  MPS  Computer  Laboratory. 

The  RAMTEK  routines  were  all  previously  written  in 
the  C language  and  were  for  the  most  part  adenuatelv  docu- 
mented in  Ref.  110],  The  C 1 anguaae  itself  is  well  document- 
ed in  Refs.  (7]  and  [111*  and  allows  the  user  to  write  clear 
and  concise  programs.  The  C 1 anquaqe  was  available  under  the 
PWB/UNIX  operatinq  system,  which  is  discussed  in  Refs.  [121 
and  [131  . 

A C program  consists  of  one  or  more  functions,  which 
are  similiar  to  the  functions  and  subroutines  of  a Fortran 
program,  "mainO"  is  such  a function;  all  C programs  must 
have  a mainO  . Execution  of  the  proqram  begins  at  the  first 
statement  of  main,  and  main  will  usually  simply  call  or  in- 
voke other  functions,  some  which  are  user  defined,  others 


from  libraries 


C 1 anauaae  has  four  tyoes  of  variables, 
int  - integer  C 16  bits  ) 
char  - one  byte  character  ( 8 bits  ) 
float  - sinole-Drecision  floating  point 
double  - double  precision  floating  point 
There  are  also  arrays  and  structures  of  these  basic 
types/  pointers  to  them  and  functions  that  return  them.  All 
variables  in  C must  be  declared  and  must  oreceed  executable 
st  at  ement  s . 

The  basic  conditional-  testing  statement  in  C is  the 
if  statement/  the  simplest  form  of  an  if  statement  is  : 

if  ( expression  ) statement 
The  expression  is  evaluated  and  if  it  is  true/  the 
statement  is  executed.  Individual  statements  end  with  a 

semi-colon  ( ; ).  There  can  be  used  an  optional  else 
cl ause . 

The  Relational  operators  are: 

= = eoua 1 to 
! = not  eoual  to 
> greater  than 
< less  than 

>=  greater  than  or  eaual  to 
<=  less  than  or  equal  to 

Tests  can  be  combined  with  "&R."  ( AND  )/  "!!"  ( OR  )/  and 
" ! " ( NOT  ). 
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The  basic  loooinq  mechanism  in  C is  the  while  state- 


ment. The  while  statement  is  a 1 ood  whose  general  form  is  : 
while  ( expression  ) statement; 

Its  meaninq  is  : 

(a)  evaluate  the  expression 

(b)  if  its  value  is  truer 

do  the  statement  and  qo  back  to  (a). 

The  arithemetic  operators  are  the  usual  add  ' + ' , 
subtract  (minus)  multiply  '*'*  and  divide  '/'  and  the 

remainder  or  mod  operator  The  else  clause  can  be  used 

to  devise  more  elabroate  oroqrams  such  as  : 

if  ( expression  ) statementl  else  statement^ 
or  to  construct  loqic  that  branches  one  of  several 
ways  : 

if  (....)  ^ 

{ > 

else  if  (....) 

{ } 

else  if  (••••) 

{ > „ 

else 

{ ) 

where  the  statements  of  the  function  are  enclosed  by  the 
brackets  O. 
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In  addition  to  the  usual  incrementinq  and  decrement- 


ing methods,  C has  two  other  unary  ooerators  1 + + ' ( incre- 
ment ),  and  ( decrement  ).  Where  ++n  is  equivalent  to  n 

= n + 1 * The  unusual  feature  of  ' 1 1 ' and  is  that 

they  can  be  used  before  or  after  a variable.  The  value  of 
t+k  is  the  value  of  k after  it  has  been  incremented.  The 

value  of  k + + is  the  value  of  k before  it  is  incremented. 

Arrays  can  be  made  as  in  Fortran,  thus  an  array  of 
ten  integers  is  created  by  the  followino  declaration  : 

i nt  x 1 1 01  ; 

square  brackets  U are  used  for  subscripting,  and 

parentheses  are  used  for  function  references  . Array  in- 
dices begin  at  zero,  thus  the  elements  of  x are  : x [0]  , 

x m , X [?]  , X [91  . Multi-dimension  arrays  are  pro- 

vided, with  the  declaration  similar  to 

int  nametlOJ  1201  ? 

name  has  10  rows,  and  20  columns?  and  the  riqhtmost  sub- 
script varies  fastest. 

Text  is  usually  kept  as  an  array  of  characters.  The 
st  atement : 

orintf(H%d:\t%s”,n, 1 ine) ? 

will  print  the  inteoer  n,  a colon,  tab  five  soaces  and  print 
the  characters  stored  in  the  array  named  line.  The  symbol 
" % d " indicates  to  print  an  inteoer,  the  symbol  "\t",  indi- 
cates to  tab  five  spaces  while  the  symbol  "%s"  indicates  to 
print  a character  array.  Each  variable  symbol  must  be  iden- 
tified in  the  description  portion  of  the  statement  (that 
portion  not  enclosed  by  quotation  marks). 


Another  method  is  to  place  the  output  between  quotes 


as  : 

printfC  Mary  had  %d  ducksNn"*  i)  ; 
with  i eaual  to  7 * will  print 

Mary  had  7 ducks 

the  symbol  ' \n ' is  the  carriaae  return  control  character. 

The  for  statement  is  a somewhat  generalized  while 
statement*  that  allows  the  user  to  out  the  i n i t a 1 i z a t i on  and 
increment  parts  of  a 1 ooo  into  a sinqle  statement. 

An  example  is: 

for  ( i =0;  i < k ; i++)  { 

statement  1 
statement? 

> 

which  executes  statementl  and  statement?  k times. 

Global  variables*  variables  common  to  all  functions 
are  declared  outside  of  mainO.  Local  variables  are  declared 
inside  a function*  while  the  declaration  of  Passed  vari- 
ables is  done  between  the  function  name  argument  list  and 
the  openina  An  example  is  shown  on  the  following 


page 


/ * global  variable  * / 


int  z , k • 
ma i n ( ) 

{ 

i nt  x [ 1 01  ; 

count (sum, 10)  ; /*  calls  count  routine  */ 

printf("The  answer  is  % d 0 , x(il)  ; 
k = x (11  * x [?1  + ( x (31  - x 141  ) 

count (total ,si ze) 

int  t o t a 1 1 1 t size  i /*  oassed  variables  * / 

{ 

int  i#  c ? /*  local  variables  */ 

for  ( i = 0?  i < size?  i++  ) 

< 


executable  statements 

• 

1 

for  ( z = k;  z < c?  z + O /*  z global  */ 

{ 

• 

} 

return  ; 
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A pointer  in  C is  the  address  of  something.  The 

unary  operator  is  used  to  produce  the  address  of  an  ob- 

ject. Thus: 

i n t a t b i 
b = &a  ; 

puts  the  address  of  a into  b.  If  b is  declared  a pointer  as 

i nt  a / *bf  c » 
b = &a  ; 
c = *b  ; 

b contains  the  address  of  a and  c = *b  means  to  use  the 

/ 

value  of  b as  an  address  C as  a pointer  ). 

An  unusual  feature  of  C is  that  normal  binary  opera- 
tors like  the  1 t 1 and  the  can  be  combined  with  the  as- 
signment ooerator  to  form  new  assignment  operators. 

For  example  % =-  10"  uses  the  assignment  operator  •=-• 
to  decrement  x by  ten*  and  x 0177  forms  the  AND  of  x and 

0177.  The  space  immediately  following  the  equal  sion  is 

criticall  X = -10  sets  X to  minus  ten,  while  X = - 10  decre- 
ments X by  ten. 

Appendix  B lists  key  words  in  C lanauage  and  mav  not 
be  used  otherwise.  Additional  information  may  be  obtained 
from  Refs.  [71  and  fill. 
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2.  Proqram  Description 

— 

A complete  program  listinq  of  the  display  proqram 
can  be  found  in  Appendix  D.  The  filename  of  this  program  is 
see3.c/  and  can  be  copied/  moved/  or  eaited  using  the  rou- 
tine system  functions  of  PWB/UNIX  listed  in  references  [121 
and  [131  . 

The  puroose  of  this  section  is  to  discuss  each  rou- 
tine individually,  each  routine's  puroose  (output)  and  its 
relationship  with  other  routines  in  the  proqram. 

Fiqure  10  shows  functional  flow  of  the  display  pro- 
gram. The  qeneral  ouroose  of  the  oroqram  is  to  read  a data 
file  into  memory,  sort  the  data  into  two  separate  files,  and 
convert  the  two  files  which  have  relative  values  in  them  to 
absolute  values.  Next  the  oroqram  quantizes  each  file  to  lb 
levels  for  use  in  disolayinq  the  imane.  Durinq  execution 
the  RAMTEK  system  is  initialized  and  the  i maqe  is  displayed 
with  an  ootion  to  chanqe  the  selected  disolay  tyoe.  The 
basic  flow  is  that  the  function  mainO  calls  each  routine* 
that  routine  accomplishes  a soeciific  function  and  returns 
to  main  for  the  next  function  call*  Apoendix  C is  a more 
detailed  flow  chart  of  the  oroqram  and  subroutines. 
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F i au  re  10 


07 


a • Dec larat ions 


The  following  variables  are  declared  as  global  variables  so 
that  multiple  declaration  statements  are  not  required. 

variable  function  ( use  ) 


amp 

filename  to  store  4096  (64x64) 
relative  values  of  amplitude 

ph 

filename  to  store  4096  relative 
values  of  phase 

i n t en 

filenameto  store  4096  relative 
values  of  intensity 

i # if  k 

integer  counters 

m 

ASCII  conversion  to  integer 
of  four  bits  of  "tpone" 

n 

integer  value  for  the  selected 
color  table 

show 

integer  value  for  the  selected  display 

f 1 aq 

integer  indicator  as  to 
whether  the  routine  showclrC) 
has  been  executed  or  not. 

If  flag  = 1 then  erase  the  screen 
in  the  routine  draw(). 

fdl 

integer  file  descriptor  for  the 
opening  of  file  toone 

fd2 

integer  file  descriptor  for  the 
opening  of  file  amp 

4fl 


fd3 

fda 

fd5 

fd6 

fd7 

aa [161  , 
dd  [161  , 
f f U61 

cc  [4] 

*DC 

q 

z 

mag 

phase 


i nteqer 

f i 1 

e descriotor 

for 

the 

open i nq 

o f 

file  p h 

i nteqer 

f i 1 

e descriotor 

for 

the 

ooen i nq 

of 

file  m a q 

i n t eqe  r 

file  descriotor 

for 

the 

open i nq 

o f 

file  phase 

inteqer 

f 1 1 

e descriptor 

for 

the 

ooen i nq 

o f 

file  inten 

inteqer 

file  descriotor 

for 

the 

ooeni nq 

o f 

file  mag? 

bbllbl,  16  - word  integer  arrays  to  store 

eell61#  various  color  tables 


four  character  - character  array 
to  store  four  values  of  toone 
e i t he  r amo  or  ph 


pointer  to  character  pc 


character#  a = 'b'  is  a test  value 

for  determining  that  input  from 
the  keyboard  has  occured 


character  for  labelina  the 
color  bar  table 

filename  to  store  4096  actual 
values  of  magnitude 

filename  to  store  4096  actual 
values  of  phase 


X , y 

real  counters  for  positioning 
the  COP  for  disolayina  the  data 

maxa 

maximum  value  of  amolitude 

m i na 

minimum  value  of  amolitude 

ma  xp 

maximum  value  of  chase 

m i np 

minimum  value  of  chase 

maxi 

maximum  value  of  intensity 

mini 

minimum  value  of  intensity 

di  fa 

difference  between  maximum 
and  minimum  amplitude 

di  fo 

difference  between  maximum 
and  minimum  phase 

d i f i 

difference  between  maximum 
and  minimum  intensity 

maq? 

filename  to  store  4096  real  values 
of  intensity  (magnitude  sauared) 

b. 

Main  Program 

The  puroose  of  the  main  program  is  to  call  the 

various  routines  that  are  used  to  accomplish  the  purpose  of 


the  proaram, 

• The  flow  of  execution  throuqh  mainO  is 

sequent i a 1 . 

The  compilation  and  the  execution  of  this  pro- 

gram  causes 

specific  data  files  to  be  filled  with  display 

data  words, 

. These  files  must  be  Previously  created  by  the 
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user.  One  method  is  to  use  the  "ed"  (edit)  command  [121 
such  as: 

%ed  amp  or  %ed  inten 

Seven  data  files  must  be  created  and  reside  in 
the  users  library  prior  to  orogram  execution.  This  pro- 
cedure will  be  exolained  further  in  section  A - 3 of  this 
chanter. 

If  the  oroqram  has  been  used  to  disolay  data* 
causing  these  data  files  to  have  the  correct  information 
stored  in  them/  it  is  unnecessary  to  re-fill  them  with  the 
same  information  again  uoon  subsequent  executions  of  the 
proqram  that  uses  the  same  input  data  tape. 

Comment  indicators  '/*'  are  recoanized  and 
cause  the  compiler  to  cease  compilina  and  continue  reading, 
until  a ' * / ’ is  sensed,  when  comoiling  continues  again.  The 
statements  included  betweem  '/*  and  */'  are  recoqni zed  as 
unexecutable  comment  statements  and  have  no  effect  upon  pro- 
gram execution. 

The  six  routines  readdataC),  amptomaa()»  Dhto- 
phasO,  amolevelC),  phleveIC),  and  int1evel()  are  used  to 
fill  the  aporooriate  data  files. 

Since  only  one  test  data  taoe  was  available, 
with  its  information  beina  stored  in  data  file  " t d o n e " / it 
was  unnecessary  to  execute  these  routines  each  and  every  use 
of  the  program. 
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Comment  indicators  were  placed  prior  to  and  fol- 
lowing each  routine  call  from  mainO,  in  order  to  preclude 
execution  of  six  time  consuminq  routines.  Use  of  these  com- 
ment indicators  s i qn i f i c an t 1 y reduces  the  compilation*  and 
execution  time  of  the  proaram.  If  it  becomes  necessary  to 
chanqe  a data  file*  because  of  additional  or  different  data 
tapes*  the  simple  removal  of  the  aooropriate  comment  indica- 
tors will  easily  falicitate  the  use  of  the  specified  rou- 
tine. 

The  mainO  routine  sets  three  variables  ( n * q* 
and  show)  to  initial  values  for  use  by  subsequent  called 
routines.  The  program  terminates  uoon  the  execution  of  an 
exitO*  which  is  executed  in  the  finish!)  routine. 

c . f i 1 eopen ( ) 

The  purpose  of  f i 1 eooen ( ) * is  to  open  seven  data 
files*  which  must  alreadv  exist  in  the  users  library*  for 
reading  and  writing  of  information.  If  these  files  do  not 
exist  in  the  user's  library*  refer  to  Ref. [121  for  further 
edification. 

It  should  be  keot  in  mind  that  tpone*  amp*  ph* 
mag*  phase*  inten*  and  maa2  are  external  files  that  have 
data  stored  in  them*  and  that  this  data  must  be  stored  by  a 
write  instruction  and  must  be  accessed  by  a read  instruc- 
tion. 
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It  is  the  user's  r esoons i b i 1 t y to  ensure  that  all 


necessary  files  do  exist  and  are  accessible  prior  to  program 
execution.  Returned  values  are  1 if  successful  opens  have 
been  executed;  otherwise  the  proqram  will  terminate  upon  an 
unsuccessful  openinq  of  any  file. 

d.  readdataO 

The  purpose  of  readdataC)  is  to  separate  the 
data  from  toone  into  two  files*  amp  and  ph. 

The  original  values  of  data  were  recorded  onto  a 
papertaoe  in  altennatina  sequence*  amplitude  then  phase*  for 
in  excess  of  4096  data  Pairs.  The  data  was  recorded  in  AS- 
CII format*  thus  it  is  also  converted  from  ASCII  to  integer 
within  the  routine  readdataO. 

The  variable  cc  is  a character  array  four  char- 
acters long.  When  the  array  is  filled  with  three  characters* 
and  a ' ' (space)*  as  the  fourth  character,  the  library  rou- 
tine atoi()  is  called  which  converts  the  contents  of  the  cc 
array  into  an  integer  variable  m.  Depending  upon  whether  the 
variable  K is  odd  or  even*  m is  then  written  into  either  the 
amp  file  or  the  oh  file.  This  sequence  is  repeated  4096 
times.  Upon  completion  of  readdataC)*  no  further  use  of 
toone  is  required  * and  two  seoerate  data  files*  amp  and  oh 


will  each  have  4096  integer  values  of  amplitude  and  phase 


stored  in  them  respectively, 
e . amptomaat ) 

The  purpose  of  amotomaqO/  is  three  fold:  first 

it  converts  the  relative  values  in  amp  (in  db)  info  actual 
values  in  mag  (in  db);  secondly/  it  finds  the  intensity  (in 
db)  of  the  values  in  maa  and  assions  them  to  mao2;  and 
thirdly/  amotomaq  determines  maximum  and  minimum  values  for 
magnitude  (mao)  and  magnitude  squared  (mao2) . 

One  value  of  amp  is  read » maq  is  assigned  a 
specific  value  according  to  the  equation: 

maq  = -20.18  - .1734  * amo 

This  is  necessary  because  the  data  acquisition 
system  records  relative  values.  For  display  purposes  actual 
values  are  required  necessitating  a system  calibration  to 
produce  the  above  equation.  If  the  calculated  value  of  mao 
is  qreater  than  the  current  value  of  maximum  amplitude/  then 
max  amplitude  is  assiqned  this  value.  If  this  value  of  mao 
is  less  than  the  current  value  of  minimum  amp,  then  min  amp 
is  assigned  this  value.  The  magnitude  squared  value  is  then 
tested  in  the  same  manner/  and  finally  mao  value  is  written 
into  mag  file/  and  the  mao2  value  is  written  into  the  maq2 
file. 
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f . phtoohas  C ) 


The  routine  ohtoohasO  is  similar  to  amotomaqO 
in  purpose  namely  to  convert  from  relative  values  of  phase 
to  actual  values/  and  to  find  maximum  and  minimum  values. 

One  value  of  oh  is  read  and  depend i no  uoon 
whether  it  is  less  than  or  equal  to  or  greater  than  127,  it 
is  assigned  a soecfic  value  of  phase  (in  deqrees)  according 
to: 

if  oh  < 127 

phase  = 1.139  + 1.4946  * ph 

else 

phase  = -380.28  + 1.4017  + oh 

As  with  amo  this  equation  results  from  calibra- 
tions performed  on  the  acquisition  system. 

Maximum  and  minimum  values  are  tested  and  saved 
accordingly.  Finally  the  value  of  phase  is  written  into  the 
phase  file. 

g . amo level  ( ) 

The  purpose  of  amolevelO  is  to  divide  the  range 
of  amplitudes  into  16  eoual  levels,  (because  each  color 
table  has  a possibility  of  sixteen  color  entries),  to  test 
each  individual  value  and  to  assign  it  a new  level  number 


55 


according  to  its  value.  If  m a x a has  a value  of  600  and  mi na 
has  a value  of  200 , sixteen  eoua  1 levels  would  be  25  units 
wide.  The  General  equation  used  is: 
difference  = maximum  - minimum? 

For  each  value? 


(maximum  - value)  * 16 


level  value  - 16  - 


di fference 

Thus  a value  of  317  in  the  above  examol e would  be 
given  a level  valye  of  4. 

( 600  - 317  * 16  ) 


16 


a 


400 


uoon  completion  of  amolevel () . The  file  amn  will  then  con- 
tain integers  from  zero  to  fifteen  representing  the  various 
ampltitude  levels.  These  values  will  be  used  as  color  table 
indices  in  subeauent  functions;  for  displaying  the  image. 


h.  phlevelt) 

The  purpose  of  phlevelO  is  indentical  to  the 
purpose  of  amplevelO.  Upon  completion  of  phlevelO;  the 
file  ph  will  contain  integers  from  zero  to  fifteen 
representing  the  various  phase  levels. 
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i nt 1 eve  1 ( ) 


As  with  amplevel!)  and  ohlevel(),  the  purpose  of 
int level ( ) is  to  generate  a file  with  values  from  zero  to 
fifteen  representing  various  levels  of  intensity.  Upon  com- 
pletion of  intlevelC)  the  file  inten  will  contain  inteaer 
values  from  0 to  15  representing  the  various  intensity  lev- 
els. 

Each  of  the  six  preceeding  rou tines  are  called 
from  main()»  and  are  only  called  one  time.  If  the  program 
has  been  previously  comoiled  and  excuted,  such  that  current 
data  is  stored  in  amp,  oh,  and  inten  files;  deletion  of  the 
comment  indicators  should  be  seriously  be  considered  prior 
to  compiling  and  execution  of  the  program. 

j . c t ab 1 e ( ) 

The  purpose  of  c t a b 1 e ( ) is  to  oefine  additional 
color  tables  that  can  be  used  for  display. 

The  five  arrays  have  been  declared  globally  and 
by  the  use  of  the  triple!)  routine,  various  color  values 
have  been  assigned  to  each  element  of  the  five  arravs. 
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Remember  that  there  are  four  color  tables  that  are  system 
color  tables#  that  are  also  avai liable  for  use#  namely 
greys#  blues#  and  areens.  The  arrays  are  assigned  specific 
color  table  numbers  and  names  by  use  of  the  clrtbl  (n#  name) 
rout i ne . 

k . d i spl ay ( ) 

The  purpose  of  this  routine  is  to  create  the  im- 
aae  on  the  display  screen  accord ina  to  values  stored  in  the 
desired  display  file.  Once  the  imaae  has  been  drawn#  the 
routine  calls  the  routine  drawO  to  display  the  color  table 
that  is  in  use#  sets  the  desired  selection  indicator  to  zero 
and  calls  the  routine  changed . Control  is  never  returned 
to  mainf)  and  the  proaram  can  only  terminate  in  the  routine 
finishO  which  is  called  by  chanqeO. 

The  selected  color  table  is  the  variable  n and 
the  brightest  color  entry  is  assigned  for  use  as  writinq 
text  on  the  screen.  All  colors  are  available  for  use  in  im- 
aae displaying  however  one  of  the  colors  is  used  to  interact 
with  the  user#  namely  entry  15. 

The  COP  starts  at  the  upper  left#  at  cartesian 
Point  (30. #69. 575).  For  64  values  of  i#  X is  incremented  bv 
0.625#  the  color  level  value  is  obtain  from  the  selected 
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disolay  file*  used  as  the  variable  in  colorO  and  a block 
0.625  bv  0.625  units  is  drawn  by  the  block!)  instruction. 
After  64  blocks  have  been  drawn*  Y is  decremented  by  0.625. 
X is  assiqned  the  value  of  69.375  and  for  64  values  is  de- 
cremented by  0.625.  The  color  level  values  from  the  display 
TYPE  file*  are  obtained  and  the  block  drawn  in  the  appropri- 
ate color.  Fiqure  12  is  a pictorial  representation  of  this 
procedure . 

The  seek()  instructions  are  system  functions 
that  move  a pointer  to  the  soecefied  position  of  the  speci- 
fied file. 

seek  C f d2  *0*0)* 

orders  the  pointer  to  point  to  the  file  described  by  "file 
description  two"  (fd2)*  point  to  the  zero  position  C the 
first  zero)  with  a zero  offset  (the  second  zero). 

The  variable  show  is  used  to  simply  indicate 
which  display  has  been  selected  to  be  plotted. 

Show=  1 ==>  Amplitude  display 
Show  = 2 ==>  Phase  display 
Show  = 3 ==>  Intensity  display 

When  displayO  is  completed  the  imaae  can  remain 
on  the  screen  indefinitely*  until  an  erased  is  excuted  by 
comnletinq  the  action  indicated  at  the  too  of  the  screen^ 
9»h ich  is  typing  a ' c ' for  change  or  a ’o'  for  quit. 
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1 .  draw (d ) 


The  routine  drswO  is  called  from  two  different 
routines*  from  showclrO  and  from  disolayf).  The  puroose  of 
drawO  is  to  disolay  the  currant  color  table  on  the  RAMTEK 
screen  with  corresciondi ng  color  levels  indicated.  There  are 
sixteen  colors  in  each  table  and  the  size  of  each  color 
block  is  3x4  units.  The  variable  Z is  a character  variable. 
By  adding  060  to  the  inteaer  variable  p*  the  statement 
outCZ)  can  be  excuted.  Out()  displays  a sinqle  character  on 
the  RAMTEK  screen  at  the  current  operatina  point.  Upon  com- 
pletion of  drawing  the  color  table  execution  is  returned  to 
the  calling  routine. 

m . oaqe 1 ( ) 

The  purpose  of  pagel()  is  simply  to  output  text 
to  the  RAMTEK  screen  for  introductory  comments.  When  the 
letter  *c'  is  typed  on  the  RAMTEK  keyboard  the  routine  ter- 
minates* and  returns  to  mainC). 

n . oaae2 ( ) 

The  purpose  of  oaae?( ) is  to  allow  the  user  to 
select  the  display  he  desires  to  see.  The  integer  variable 
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show  is  set  to  zero  and  the  proqram  will  wait  until  a number 
is  typed  on  the  RAMTEK  keyboard,  followed  by  a carriage  re- 
turn using  the  CR  key. 

o.  oaqe3  O 

The  puroose  of  Dage3()  is  to  allow  the  user  to 
view  the  avaible  color  tables  and  then  select  which  color 
table  he  wishes  to  be  used  to  generate  the  image.  There  are 
nine  different  color  tables:  four  system  reserved  color 
tables,  and  five  oroqram  generated.  The  inteqer  variable  n 
is  used  to  indicate  the  selected  color  table. 

The  viewina  of  color  tables  is  accomplished  by 
calling  the  routine  showcl r()  . The  user  may  already  know 
what  tables  are  avialable  and  the  corresponding  table 
number,  thereby  not  wishinq  to  view  the  nine  tables.  This 
oot ion  is  also  available,  simoly  by  typinq  the  letter  ' n * 
indicating  that  no  - the  user  does  not  wish  to  see  the  color 
tables. 

p • showc 1 r O 

The  purpose  of  the  routine  showc 1 r (1  is  to  call 
draw()  for  displaying  the  current  color  table  and  askina  the 
user  if  he  wishes  to  see  the  next  color  table. 
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q.  chanqeO 


The  purpose  of  the  routine  chanaeO  is  to  deter- 
mine whether  the  user  wishes  to  select  another  desired 
display  / and/or  chanoe  the  color  table  currently  in  use. 
when  the  user  indicates  that  a change  in  display  is  desired 
the  routines?  paqe20  and  oaqe30/  are  called  to  obtain 
necessary  information  concerning  the  selected  display  and 
color  to  be  displayed.  Once  this  is  accomplished/  the  rou- 
tine displayO  is  again  called  to  produce  the  desired 
display. 

The  routine  chanqeO  can  only  be  exited  by  indi- 
cating that  the  user  desires  to  quit/  bv  typing  the  letter 
'o'  when  asked  to  do  so.  The  display  can  be  changed  as  many 
times  as  the  user  desires  to  do  so. 

r.  finishO 

The  purpose  of  the  routine  finishO  is  to  verify 
that  the  user  does  in  fact  wish  to  quit.  The  user  is  aiven 
a second  and  final  chance  to  indicate  whether  he  does  real  1 v 
want  to  stop/  or  does  want  to  go  back  and  look  at  another 
selected  display. 
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3.  Program  Exe cut i on 


It  is  assumed  that  the  user  of  this  program  does  have  at 
least  some  introductory  experience  with  the  facilities  in 
the  Computer  Laboratory,  and  with  the  PWB/UNIX  operat i nq 
system.  In  order  for  the  user  to  sucessful ly  display  the 
image  on  the  PAMTEK  system  a number  of  actions  must  have 
been  a ccompl ished. 

a.  Program  Loadina 

The  program  see3.c  must  be  copied  into  the  user's 
library  so  that  he  mav  make  desired  changes,  and  so  that 
compilation  may  be  accomplished. 

As  indicated  in  section  III  A - 2 , seven  data 
files  must  reside  in  the  user1  s library.  Those  files  are  : 

t pone 

amp 

ph 

phase 
mag 
i n t 
mag? 

They  can  he  created  by  usina  the  edit  command 
M e d " , then  writing  one  blank  line  (carriage  return),  and 


then  quiting  the  edit  mode.  For  example  to  create  the  amo 

file: 

%ed  amo 

0 ? 

>a 

(return) 

> 1 w 

>a 

% 

would  accomolish  the  task* 

b.  Program  compilation. 

Once  the  user  has  cooied  and  made  any  desired 
edits  to  His  oersonal  copy  of  the  program,  the  oroqram  can 
be  compiled  in  order  to  produce  an  executable  file  named 
a. out.  The  compilation  is  accomplished  by  typing  the  fol- 
lowing system  command  : 

% ramt ek  see3 .c 

This  action  will  produce  an  executable  file 
named  a. out.  It  is  hiahlv  recommened  that  the  move  command 

mv  a. out  anotherf i lename 

be  executed  in  order  to  reduce  the  possibility  of  erasina 
the  file  a. out  by  another  coml ioat i on  prior  to  completion  of 
its  use . 

Once  the  compilation  has  been  completed,  typino 
the  filename  a. out  will  cause  execution  to  begin.  Tvpino 
anotherf i lenane,  if  the  move  (mv)  command  was  executed,  will 
also  cause  execution  to  commence. 
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c.  RAMTEK  Execution 


In  order  to  use  the  RAMTEK  system  verification 
from  the  Computer  Laboratory  staff  personnel  should  be  ob- 
tained as  to  whether  RAMTEK  is  operational  or  not.  When 
RAMTEK  is  operational  two  power  switches  must  be  turned  on. 
One  switch  is  on  the  CRT  housina  cabinet;  it  is  a knob  lo- 
cated on  the  front  lower  left  corner  marked  on  - off.  The 
other  switch  is  on  the  keyboard?  a qreen  push  type  switch  on 
the  upper  right  corner.  Both  of  these  switches  must  be  on 
before  the  program  is  executed  in  order  to  have  meaninofull 
results. 


d.  Editinq  the  Proqram 

The  user  can  edit  his  copy  of  the  display  pro- 
gram in  the  normal  PW8/UNIX  editino  mode.  Most  of  the 
changes  will  probably  be  the  addition  or  change  of  color 
tables^  or  increasing  the  size  of  the  disolav. 

C.  SYSTEM  DISPLAYS 

The  photoaraohs  shown  in  the  following  paaes  are  pec- 
toral evidence  that  the  routine  appears  to  accomplish  the 
desired  task/  although  much  of  the  visual  impact  is  lost  bv 
being  limited  to  black  and  white  nhotos. 
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1.  Program  Oe ve 1 onmenf 


The  display  oroaram  was  developed  in  sequential 
steos.  A specific  routine  was  written  and  tested  individu- 
ally and  then  it  was  incorporated  with  the  previously  com- 
pleted routines. 

2 . Display  Photoar aohs 


The  photographs  on  the  following  Dages  show  how  som» 
improvements  to  the  program  affected  the  display  output. 
The  last  sets  of  ohotoqraohs  show  the  display  output  of  the 
completed  prooram#  as  listed  in  anpendix  D.  This  proaram  is 
re-entrant#  allowinq  the  user  to  select  an  alternate  display 
and  different  color  tables  for  use  in  subseauent  display 
outouts  at  the  current  session. 

Fiqure  12  shows  one  of  the  first  images  produced. 
The  object  is  a circular  aperture  placed  in  front  of  the 
source  transducer.  The  sound  field  is  scanned  immediately 
behind  the  object.  Previous  images  (not  shown)  filled  tne 
screen  and  did  not  have  any  margins.  In  fiaure  12  the  image 
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is  rectangular,  controlled  by  the  blockC)  instruction,  to  be 


40  wide  and  70  high.  The  disolav  used  white  as  the  back- 
ground color  and  it  used  shades  of  red  and  blues  as  the 
primary  colors  of  the  table. 

Figures  13  - 16  show  the  image  to  be  blocked  to 
40X40.  As  can  be  seen  in  Fig. 16,  this  sauare  image  allowed 
for  information  to  be  oresented  in  the  borders  of  the 
sc  reen . 

Figures  17  - 20  are  presented  to  show  the  "inter- 
action" that  the  user  has  with  the  system.  The  user  must 
resoond  to  the  reouests  presented  on  the  sc'reen  - or  the 
system  will  remain  in  an  idle  state  waiting  for  a response. 

Figures  21  - 26  show  the  three  Possible  kinds  of 
display  images,  utilizing  two  different  color  tables.  Fig- 
ures 21,23  and  25  use  the  shades  of  red  table,  while  Figs. 
22,24  and  26  use  a mixed  color  table.  Figures  21  and  22 
are  of  the  amplitude  plots;  Fios.  23  and  24  are  the  phase 
plots;  and  Figs.  25  and  26  are  the  intensity  dots. 
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Fiaure  1?.  Earlv  Oevelooement  Staae 


F i qu  re  13. 
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F i qu  re  l 4 . 


F i qu  re  15. 
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F i qu  re  16. 
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Figure  ?0 . 
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F i qu  re  21. 

Amplitude  Display  - Reds  Color  Table 


Fiqure  22. 

Amplituoe  Display  - Mixed  Colors 
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Phase  Display  - Reds  Color  Table 


F i gu  re  . 
Display  * Mixed 


Phase 


Colors 
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Figure  2 5 . 


Intensity  Display 


^eds  Color  Table 


Figure  26 . 


Intensity  Display 


^ i x ed  Col o r s 
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CONCLUSIONS  AND  RECOMMENDATIONS 


Althouqh  the  developed  system  is  not  an  optimum  system 

\ 

in  soeed  or  in  size#  it  does  allow  16-level  color  code 
disolays  of  two  dimensional  data  arrays  to  be  visually 
disolayed.  The  system  described  here  was  designed  for 
part  of  an  ultrasonic  imaainq  system.  However  this  display 
portion  of  the  overall  system  could  be  used  to  display  two 
dimensional  data  from  any  source.  The  one  reauirement  is 
that  the  data  be  stored  in  alternating  values  on  the  data 
tape.  It  must  be  recoani zed  that  software  modifications 
could  be  almost  unlimited#  in  order  to  achieve  many  possible 
i mpro vemen t s • 

Included  here  are  a few  recommendations  that  would  de- 
finitely improve  the  efficiency  of  the  current  program.  By 
reducina  the  time  required  to  construct  the  imaae  the  pro- 
cessing capabilities  of  the  system  would  be  increased. 
First#  allow  the  program  itself  to  create  the  necessary  data 
files#  rather  than  the  user  beino  required  to  do  so. 
Secondly#  allow  the  user  to  generate  color  tables  durina 
proaram  execution.  This  would  allow  for  additional  investi- 
gations to  be  conducted  at  fhe  terminal  by  increasina  the 
color  selection  to  the  maximum  possible  . Thirdly,  it  is 
recommended  that  furture  endeavours  in  this  system  utilize 
the  magnetic  taoe  capabilities  of  the  P D P 11/50  computer. 
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That  is  the  necessary  data  files  and  computer  program  should 


be  kept  stored  on  magnetic  taoe  when  not  in  use.  Thi 
reduce  memory  requirements  when  the  proaram  is  not  in 
allow  for  easier  transportation  of  data. 


s would 
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APPEND  I X A 


RESERVED  WORDS 


a 

ADOFF 

adon 

alpha 

axis 

b 

BKON 
BKOFF 
bk  rnd 
blank 
8LK 
block 
brae  ket 
bt  1 
bt  2 
bt  A 
b t 5 
buff 
by t enc  t 
c 

eft 

change 
cl  rho  1 d 
cl rt  b 1 
code 


e i nst 
eoage 1 
eoaqe2 
eoage3 
erase 
ERS 
f i x d t 
flip 
f name 
f o 

FPOFF 
f pon 
get  f 
get  num 
GRAPHCRT 
GRAPHELM 

graphvec 

head 
headot  r 
heat 
ho  1 dx 
ho  1 dy 
index 
i nntrs 
instr 


cause 
pick 
ol otot 
o 1 ot  1 n 
o 1 ot  h 
point 
oointr 
p roc  1 
oroc2 
o roc  3 
o roc  d 
o r oc  5 
ot  rbu  f f 
nu  t up 
apt  r 
opt  r 1 
ot 

guest 
a 1 

r am  t e k 
RASTERD 

re  t c h a r 
scissor 

SCP 

screen 
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code i t 


coke 
color 
col ort 
co 1 o r t b 1 
c omb 
COMMA 
COMPD 
con  ve 
c on  v 1 
cooy 
CR 
c t 1 
c t 2 
c t 3 

ct« 

cursv 

curso 

cursh 

d 

data 
dat  ao 
db 1 w i d 
disc 
dump 


i ns  t 1 ~ i ns  t BO 

sc  ro 1 1 

inter 

SDCO 

i n 1 5 3 

setmode 

i n f 60 

set  uo 

i toa 

size 

TXOFF 

Sk  i D 

T X ON 

SSCALL 

LCM 

s t rout 

1 cmho 1 d 

s t r t x y 

LER 

sys  tb 1 

Lex 

t b 1 w h o 

LEI 

transd 

LE2 

triple 

LLR 

UPC  n t 

LLX 

vector 

LL1 

wait 

LL? 

WDOFF 

L T A 

WDON 

LTD 

w r i ton 

1 1 1 r 

xax  i s 

LXO 

xm  i n 

mo  re i ns  t 

x m a x 

nO-nl  7 

vax  i s 

oc  t b 1 

yax i s f 

out 

y m i n 

yma  x 

BO 


APPENDIX  B 


C Lanquaoe  Reserved  Words 


i n t 

char 

float 

double 

struct 

auto 

extern 

r e a i ster 

static 

goto 

r e t u r n 

si z e o f 

break 

continue 

i f 

else 

for 

do 

while 

s w i t c h 

case 

de  f au  1 t 

entry 
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APPENDIX  C 


Detailed  Flow  Chart 
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1 /*  Proa ram  for  disolavina  data  on  the  PA^TEK  display  unit  */ 

2 

3 /*****  DE C L A P A T I 0US  ★****/ 

a 

5 int  afro#  p h , intent  if  j * V , m , n,  show*  flaa  } 

6 int  f d 1 f fd2,  fd3,  fd a,  fdS,  fd6,  fd7  ; 

7 int  aa  T 1 6]  * bb(16),  ddU61,  eefl6J,  ffU6)  ; 

B char  cc  (4)  , *oc t 2 7 

9 float  maqf  chase*  x,  y ; 

10  float  m a x a # m i n a * m a x p * minp*  difa*  difp  7 

11  float  maxi*  mini*  difi*  m a a 2 ; 

12 


13 

/*****  MAIN 

PROGRAM  ( call' 

14 

15 

mair 

i o 

16 

( 

17 

f i 1 eooen 

()  ; 

1 fl 

ramtek  ()  ; 

19 

erase  () 

7 

20 

c t ab 1 e ( ) ; 

21 

oagel  () 

7 

22 

paae2  () 

7 

23 

oaae3  () 

7 

24 

/* 

25 

readda  t a 

n ? 

26 

*/ 

27 

/* 

23 

amo  t omag 

n ; 

29 

*/ 

30 

/* 

31 

ph  t oohas 

()  ; 

32 

*/ 

33 

/* 

34 

amo level 

()  ; 

35 

*/ 

36 

/* 

37 

oh  1 eve  1 

o ; 

33 

*/ 

39 

/* 

40 

i n t 1 eve  1 

o ; 

41 

*/ 

42 

d i sp 1 ay 

o ; 

43 

} 

44 

45 

/*****  OPENS 

ALL  NECESSARY 

46 

47  f i 1 eopen  ( ) 
4 B ( 


49 

50 

St 

52 

53 

54 

55 

56 

57 

58 

59 

60 


/*  OPEN  INPUT  FILE  FOR  HEAD  ONLY  */ 


fdt  = open ( H t pone  "* 0 ) ; 

i f ( f d 1 < 0 ) ( 

print f(”  CANNOT  OPEN  DATA  FILE  \n"  ) ; 

print  f ( ” PLE  ASF  INSURE  THAT  TPONE  IS  IN  LIRRARY  W ) 


exit  ( ) ; 


} 


/«  OPEN  AMP  FILE  FOR  kE A f> /WR  I I F */ 


fd2  = ooen(,,arrnMf2t  ? 
if  ( f d2  < 0 ) { 

orintf C CANNOT  OPEN  A”P  FILF  tn"  ) ; 

nrintfC  PLEASF  INSURE  THAT  AMP  TS  IN  IIRRARY  \n"  ) 

exit  ( 1 ; 
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61 

> 

62 

63 

fd3 

= open ( "oh " , ? ) ; 

/*  OPEN  PH  FILF  FOR  READ/WRITE  */ 

64 

if  ( M3  < 0 ) { 

65 

orintfC"  CANNOT 

OPEN  PH  FILE  \n"  ) ; 

66 

orintfC"  PLEASfT 

INSURE  THAT  PH  IS  1 1J  LIBRARY  \n"  ) ; 

67 

exit  C ) ; 

6a 

> 

69 

70 

f d4 

= open  C "'naq"  ,2)  ; 

/*  OPEN  MAG  FILE  .FOR  RFAD/NRITE  */ 

71 

i f ( fd4  < o ) < 

12 

orintfC"  CANNOT 

OPFN  MAG  FILE  \n"  ) ; 

73 

orintfC"  PLEASE 

INSURE  THAT  mag  TS  IN  LIBRARY  \n")  ; 

74 

exit  C ) ? 

75 

> 

76 

77 

fd5 

- open ( "phase " , 2 ) ; 

/*  OPEN  PHASE  FILE  FOR  READ/ WRITE 

78 

i f ( fd5  < 0 ) { 

79 

orintfC"  CANNOT 

OPFN  PHASE  FILE  \n"  ) ; 

80 

orintfC"  PLE ASP 

INSURE  THAT  PHASE  TS  IN  LIBRARY  W ) 

81 

exit  ( ) ; 

82 

} 

83 

84 

fd6 

= ooen("inten" ,2)  ? 

/*  OPEN  INTENSITY  FILE  FOR  RFAD/WR 

85 

i f ( fd6  < 0 ) 1 

86 

orintfC"  CANNOT 

OPFN  INTENSITY  FILE  W ) ; 

87 

orintfC"  PLE ASF 

SEE  THAT  INTENSITY  IS  TN  LIBRARY  W ) 

88 

exit  O ; 

09 

) 

90 

91 

f d 7 

= open C "mao2" , 2)  ; 

/*  OPEN  MAG  SQUARED  FILE  */ 

92 

if  C fd7  < 0 ) { 

93 

orintfC"  CANNOT 

OPEN  MAG  SQUARED  FILF  \n"  ) 

94 

orintfC"  PLEASE 

CHFCK  LIBRARY  FILES  \n”  ) ; 

95 

exit  ( ) ? 

96 

> 

97 

98 

return  } 

99 

> 

1 00 

101  /**»**  READ  DATA  FROM  TPONE 

INTO  EITHER  AMP  OR  PH  FILE  **»**/ 

1 0? 

1 0 3 re adda  t a 

() 

1 04  ( 

1 0*5 

for 

( i = o;  i < 4096;  i 

+ + ) ( 

106 

for  ( k = 0;  k < 2; 

t + + ) T 

1 07 

oc  - cc  ; 

i oa 

do  < 

1 09 

readCfdl,ocj 

1 ) ? 

no 

i f ( *pc  == 

1 \n  * ) dc  = it c c r — i j ; 

1 1 1 

> 

112 

while  C *pc++  ! - 

’ • ) ; 

113 

n = a t o i ( c c ) ; 

1 14 

if  ( k ==  0 

) 

115 

writeCfd?f&m,2)  J 

116 

else 

117 

writeCfd3^rn#2)  ; 

118 

} 

119 

> 

120 

return  ; 
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121 

122 

123 

12ft 

125 

126 
127 
125 

129 

130 

131 

132 

133 
13ft 

135 

136 

137 
135 
1 39 

140 

141 

142 

143 

144 

145 

146 

147 
1 45 

149 

150 
151 


/aaaaa  CONVERT  INTEGER  AMP  VALUES  INTO  dR  FLOATING  POINT  MAG  VALUE 


amot  omaq  ( ) 

( 

seek ( f d2 , 0 , 0 ) ; 

see  k ( f d 4 , 0 , 0 I ? 
see  k t f d 7 , 0 , 0 ) ; 

maxa  - -999,0  ? 
mina  - 999.0  ; 

maxi  - 000.0  ? 

mini  = 999.0  ; 

for  ( i = 0;  i < 4096? 
read ( f d2 r & amn / 2 ) ? 

maq  = -20.18  - .1734  * 
mao2  = maq  +>  maq  ? 
if  ( maxa  < maq  ) maxa  s maq  ? 

if  ( mina  > mao  ) mina  = maq  ? 

if  ( maxi  < m a a 2 ) maxi  = maq2 

if  ( mini  > maq2  ) mini  = maq 2 

write(fd4f&maqf4)  ? 
wri  te(  f d7f  JiTtaq?,  4)  ? 

> 


> 


/ * POINT  TO  BEGINNING  OF  AMP  F T LE  ♦/ 

/a  POINT  TO  BEGINNING  OF  MAG  FILF  :*/ 

/*  POINT  TO  BEGINNING  OF  MAG2  FILE  */ 


in  ) { 

/a  READ  2 
amp  ; 


BYTES  INTO  A^P  */ 


return  * 


/*****  CONVERT  INTEGER  PH  VALUES  TO  dB  FLOATING  POINT  Ph A SF  VALUES 
ph  t oohas  ( ) 


152  { 


153 

seek(fd3,0,0)  ? 

/a  POINT  TO  BEGINNING 

OF  PH  FILE  */ 

154 

seek(fd5,0,0)  ; 

/a  POINT  TO  REGINNING 

OF  PHASE  FILF 

155 

ma  xp  = -999 . 0 } 

156 

minp  = 999.0  ? 

157 

for  ( i = 0;  i < 4096?  i 

♦ ♦ ) ( 

158 

r ead ( f d3 / &oh , 2 ) ? 

/*  READ  2 BYTES  OF  PH 

A/ 

159 

if  ( oh  < 127  ) 

160 

phase  = 1.139  ♦ 

1 .4946  a ph  ? 

161 

else 

162 

phase  = -350 . 25 

♦ 1 .49 17  * ph  ? 

163 

wri te(fd5/&phase,4) 

; /*  WRITE  4 BYTFS 

INTO  PH  A SF  a/ 

1 64 

if  ( maxn  < phase  ) 

maxo  = phase  ? 

165 

if  ( mine  > phase  ) 

mi  no  = phase  ? 

166 

> 

167 

return  ? 

168  > 

169 

170  /a  a * * a CONVERT  THE  FLOATING 

POINT  VALUES  INTO  INTEGER  VALUES  OF 

171 

BETWEEN  0 AND  15  C for  color  table  use  ) 

A * 

172 

1 7 3 amp  level  ( ) 

174  < 

175 

difa  r maxa  - mina  ? 

176 

seek ( f d2  f 0 f 0 ) ? 

177 

seek ( f d4 , 0 , 0 ) ; 

175 

for  { i = 0 ? i < 4096  ? i 

♦ + ) ( 

179 

r ead f f d4 , &maa * 4 ) ? 

180 

amp  = 16  - (((  -maxa 

- mao  ) /difa  ) * 16 

) ; 
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4 

181  w r i t e ( f d2 , Remo / 2 1 ; 

182  1 

183  return  ; 

i e«  > 

185 

186  oh  1 eve  1 ( ) 

187  { 

188  d i f o = m a x o - m i n o ; 

189  seek (fd3, 0,0)  ; 

190  seek(fd5,0,0)  ; 

191  for  ( i = 0;  i < 9096;  i++  ) { 

192  re  ad ( f d5 , &ph a se , 9 ) ; 

193  p h = 16  - (((  maxn-  phase  ) / difo  ) * 16.  ) ; 

199  w r i t e ( f d3 , ^ph , 2 ) ; 

195  ) 

196  return; 

197  1 

198 

199  i nt 1 e ve 1 ( ) 

200  { 

201  seek ( f d6 , 0 , 0 ) ; 

20?  seek C fd7, 0, 0)  ; 

203  difi  = maxi  -mini  ; 

209  for  C i = 0;  i < 9096;  i++  ) { 

205  read ( f d7 , &maa2 , 9 ) ; 

206  inten  = 16  - ( ( ( maxi  -maa2  ) / difi  ) * 16  ) ; 

?07  w r i t e ( f d6 , & i n t en , 2 ) i 

208  » 

209  return  ) 

210  ) 

211 

2 1 2 /***♦*  DECLERAT ION  OF  VAPIOUS  c0SSIBLE  COLOR  TABLES  *****/ 

213 

219  ctable  () 

215  ( 

216 

217  aa (01  =t  riol eC15,15, 15) ; 

218  aatllstriolef 15,15, 10); 

219  aat?l=triole(15,15,05)» 

220  aa[3)=triDle(15, 15,00); 

221  aa (91  =t riol e(15,l 0,15); 

222  aa  f 5 1 = t r i o 1 ef 15,05, 15) ; 

223  aat61  =triolef 15,00, 15); 

229  aa  (71  =t  riol  e(  15,  1 0, 1")  ,* 

225  aa (81  =t riol e( 15, 1 0,05)  : 

226  aa f 9) = t r i o 1 e ( 1 5 , 1 0 , 00  ) ; 

227  aa  flO]  =trio1  e(  15,05,  10)  ,* 

22 8 aa [ 1 1 1 = t r i o 1 e ( 1 5 , 05 , 05 ) ; 

229  aa [ 12) =t riol e(  15,05, 00)  ; 

230  aa 1 13J =t riol e( 10, 10, 1 0)  ; 

231  aa ( 1 9 ] = t r i o 1 e ( 1 0 , 1 0 , 05  ) ; 

232  aatl51=triole(05,05,05); 

233 

230  bb [01 =t r i p) e (00, 00,00); 

235  bbfll  =triole(01  ,01,01  ) ,' 

236  bbf21 =triole(02, 02,02)  ! 

237  bb [31  =triol e(03, 03,03  ) ; 

238  bb  [91  =t  r i ol  e ( 09 , 09 , 09  ) ; 

239  hb (51 =t riol e( 05, 05,05 ) ; 

290  bb[6) =triole(06, 06,06)  ; 


/ * black  * / 
/*  */ 

/ * * / 

/*  */ 

/*  */ 

/*  */ 

/*  */ 
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241 

bb  [71 =trip1e(07,07. 

07)  ; 

/* 

A/ 

242 

bbf81 =trip1e(08,08. 

0 8); 

/* 

A/ 

243 

bb  f 9] =triDle(09,09, 

09)  ; 

/* 

A/ 

244 

bb  f 1 01 =t  r i ol e(  1 0 , 10 

,10); 

/ * 

A/ 

245 

bb  tl 1 1 =tri ol e(  1 1 , 1 1 

,11); 

/* 

A/ 

246 

bb(12)=triple(12,12 

, 12) ; 

/ * 

A / 

247 

bb(13)=triple(l3,l3 

,13); 

/* 

*/ 

248 

bb [1 4) =t  ri ol e( 1 4,  1 a 

,14); 

/* 

*/ 

245 

250 

bb [151 =triole( 15, 15 

, 15) ; 

/ * 

white  a / 

251 

dd  ( 0 1 =triple(00,00, 

00) ; 

/* 

black  a / 

252 

dd[ll=triD'e(l5,00r 

0 8); 

/* 

violet  a / 

253 

d d ( 2 ) =triple(04,00. 

IP); 

/A 

pu  pd 1 e * / 

254 

dd(31=trip1e(15,00, 

15)  ; 

/* 

maaen  t a * / 

255 

dd[4]=trioleC12,04, 

15); 

/A 

puce  a / 

256 

dd  [51 = t r i d 1 e ( 08 , 08 , 

15) ; 

/A 

pink  a / 

257 

dd  ffel = t p i o 1 e ( 0 0 , 0 0 , 

15)  ; 

/ A 

red  a / 

258 

dd[71 = t p f p 1 e ( 0 0 , 12, 

15); 

/A 

orange  */ 

259 

dd (8)  = t r i d 1 e ( 0 0 , 1 5 , 

15); 

/A 

yellow  a / 

260 

dd [9] = t p i p 1 e ( 00 , 1 5 , 

08)  ; 

/A 

yellow  - areen 

261 

dd[101 =triple(00,  15 

,oo); 

/A 

green  */ 

262 

dd  [ 1 1 1 = t r i o 1 e ( 1 5 , 05 

,00); 

/A 

green  -•  blue  * 

263 

dd(I2J=triple(08,  15 

,00); 

/A 

blue  - areen  * 

264 

ddfl3)=triole(l5,15 

,00) ; 

/A 

cyan  a / 

265 

dd(14)=triple(15,00 

,00)  J 

/A 

blue  a / 

266 

267 

dd  (151 =tripl e( 15,  15 

,15); 

/A 

white  * / 

268 

ee  [01  =trio1e(00,00. 

/*“N 

o 

o 

/ * 

black  a / 

269 

ee  (11  = fn*DleC00,00, 

05)  ; 

/A 

* / 

270 

ee(21 =triple(00,00. 

10) ; 

/ A 

A/ 

271 

ee ( 31  = t r i p 1 e ( 0 0 , 0 0 , 

IS)  ; 

/ A 

rea  * / 

272 

e e ( 4 1 =triple(00,05. 

00) ; 

/A 

* / 

273 

ee  (51 = t r i d 1 e ( 0 0 , 05 , 

05) ; 

/A 

A/ 

274 

ee(6]=trip1e(00,05. 

10)  ; 

/A 

A/ 

275 

ee  (71 = t r i d 1 e(00,05. 

15) ; 

/A 

A/ 

276 

ee(8)=triple(00,10, 

00)  ; 

/A 

A / 

277 

ee(91=trip1e(00, 10, 

05)  ; 

/A 

A/ 

278 

ee(10]=tri*Dle(00,10 

, 10) ; 

/ A 

A/ 

279 

ee  (1 11 =t rioletOO,  10 

, 15) ; 

/A 

A/ 

280 

ee  (121 = t r i p 1 e(00,  15 

,00) ; 

/A 

green  * / 

281 

ee ( 1 31  = t r i o 1 e ( 0 0 , 1 5 

,05); 

/A 

A/ 

28? 

eeri4]=triole(00,15 

,10); 

/A 

A/ 

283 

284 

ee  [151 = t r i o 1 p ( 0 0 , 15 

, 15) ; 

/A 

yellow  a / 

285 

f f [01 = t p i d 1 e C 15,00, 

00)  ; 

/ A 

blue  * / 

286 

f f (11 =tpiDle(l5,00, 

05) ; 

/A 

A/ 

287 

ff  (21 =tpfole( 15,00, 

10) ; 

/* 

A / 

288 

f f (31 =tpiDle(15,00, 

15) ; 

/A 

magenta  a / 

289 

ff  [41  =t  piol  e(  15,05/ 

00)  : 

/ A 

A / 

290 

f f [51  =t  r i p 1 e (1 5 , 05, 

05) ; 

/* 

A/ 

291 

f f (61 =tripl eC 15,05, 

10) ; 

/A 

A/ 

292 

ff  (71 =triple( 15,05, 

15) ; 

/A 

A / 

293 

f f [81 = t p i d 1 e f 1 5 , 10, 

00) ; 

/ A 

* / 

294 

ff  (91 =t pipl e( 15, 1 0, 

05)  ; 

/ A 

A/ 

295 

ff  (10)  = t p i o 1 e ( 1 5 , 10 

,10); 

/A 

*/ 

296 

ff [ll]=triole(l5,10 

, 15) ; 

/ A 

A/ 

297 

ff [12)=tPiple(15,15 

,00); 

/ A 

cyan  a/ 

298 

ff[13)=tpiple(l5,15 

,05); 

/A 

a / 

299 

f f ( 1 ai =t piol e( 15, IS 

,10); 

/ A 

A / 

300 

ff(151=triple(15,15 

,15); 

/A 

white  * / 

see3.e 
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301 

302  elrthl  («,aa)  ; 

303  elrthl  ( 5 , bb ) } 

304  elrthl  ( 6 , dd) 

305  elrthl  ( 7 , ee ) } 

306  elrthl  (8,ff)  ; 

307 

308  return  ; 

309 

310  ) 

311 

312  /*****  ROUTIME  FOR  DISPLAY  PORTION  OF  PROGRAM  *****/ 

313 

314  display  () 

315  { 

316  flag  = 0 ; 

317  erase  ()  ! 

318  screen  (0.0,  0.0,  100.0,  110.0  ) ; 

319  colort(n)  ; 

320  col  or ( 15)  ’ 

321  x = 30.0  ,*  y = 69.375  ; 

322 

323  /*****  AMPLITUDE  DISPLAY  ROUTINE  *♦***/ 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354  /*****  ROUTIME  FOR  PHASE  DISPLAY  PORTION  OF  PROGRAM  ***** 

355 

356  else 

357  i f ( show  ==  2 ) < 

358  st  rt  xy  (40.  , 80.  ) ,* 

359  strout ("PHASF  DISPLAY")  ; 

360  strtxy(x,y)  ; 


i f ( show  ==  1 ) < 

st  rt  xy (40 . , 80  . ) ; 

Strout  ("AMPLITUDE  DISPLAY")  ; 

St  rt  xy ( x , y 1 ) 

seek ( f d2, 0 , 0 ) * 

for  ( i = 0;  i < 64;  i + + ) { 

y = 69.375  - ( i * .625  ) : 
for  ( i=0;  j <64;  j+t  ) { 

x = 30.  ♦ ( .625  * i ) ; 

read ( f d2 , &amo , ? ) ; 

c o 1 o r ( amn ) ; 

block(  x,  y,  x+.625,  y+.625  ) ; 

) 

i + + ; 

y = y - .625  ; 

for  ( i =0;  j <64;  j + + ) { 

x = 69.375  - ( .625  * i ) ; 
r e ad  ( f d2  , &amo , ? ) ! 

C o 1 o r ( amp ) ; 

b l oc  k ( x,  y,  xf.625,  y + .625  ) ! 

> 

) 

draw  (n)  ; 

show  = 0 ; 

change  ()  J 
return  } 

} 


13 
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361 

seek(fd3>0,0)  ; 

36? 

for  C i = 0;  i < 64;  i + + ) { 

363 

y = 69.375  - ( i * .625 

) ? 

364  . 

for  C j = O ; j < 64;  j + + 

) ! 

365 

x = 30.  + C .625  * j 

) ; 

366 

read  C f d3 9 &ph , 2 ) ; 

367 

color(nh)  ; 

368 

block!  x 9 v t x + . 625  9 

y + . 

369 

) 

370 

i ++  ? 

371 

y = y - .625  ; 

372 

for  C j = 0 ; j < 64;  j ♦ + 

) ! 

373 

x = 69.375  - C .625 

* j 

374  . 

r ead  ! f d 3 , &ph , 2 ) ; 

375 

Color (oh)  ; 

376 

block!  x;  y t x ♦ . 625  # 

y+ . 

377 

> 

378 

) 

379 

draw  C n ) ; 

380 

show  - o ; 

381 

chanae  C)  ; 

382 

return  ; 

383 

> 

384 

385  /*****  ROUTINE  FOR  INTENSITY  DISPLAY 

386 

387 

else 

388 

\ f C show  =r  3 ) { 

389 

Strtxy(4Q.,80.)  ; 

390 

Strout  (-INTENSITY  DISPLAY”) 

9 

391 

s t r t xy ( x , y ) ; 

392 

seek  ! f d6 , 0 , 0 ) ; 

393 

for  ( i = 0 ; i < 64;  i t + ) { 

394 

y = 69.375  - ( i * .625 

) ; 

395 

for  ( j = 0;  j < 64;  j + + 

) ( 

396 

x = 30.  + f .625  * j 

) ; 

397 

read! fd6^& infen, 2)  ; 

398 

color (inten)  ; 

399 

block!  x , y , x * . 625 , 

yt.i 

400 

> 

401 

i ++  ; 

402 

y r y - .625  ; 

403 

for  ( j = 0;  j < 64;  j ♦ + 

) ! 

404 

x = 69.375  - ! .625 

* j 

405 

r ead C f d6 , & i n t en , 2 ) ; 

406 

color(inten)  ; 

407 

block!  x , y 9 x + . 625 , 

y + 

408 

> 

409 

> 

4 1 0 

draw  !n)  ; 

411 

show  =•  0 ; 

412 

chanae  !)  ? 

413 

return  ; 

4 14 

> 

415 

416  } 

417 

return  ; 

4 1 8 

419 

420 


/*****  PROGRAM  TO  DRAW  AMD  LABLE  COLOR  LEVELS  *****/ 
draw  (p) 


9V 
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42 1 i nt  p ? 

422  ( 


423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441  } 

442 

443  /*****  INSTRUCTIONS  AND  INTRODUCTION  *****/ 

444 

445  oaoel  () 


if  ( flaq  ==  1 ) erase  ()  • 

co 1 o r t (p ) 7 

C o 1 o r ( 1 5 ) ; 

strtxy(9.,18.)  ; 

st rout ("LEVEL  0 1 

strtxy(20.,10.)  ; 

y = 10.  ; 

for  ( i =0;  j <16;  j + + ) < 
x = 20 . t (5.  * j ) ; 
c o 1 o r ( j ) ; 

block(x,y,xt3.,y+4.)  ; 
strtxy  (40., 28.)  ; 

strout  ("COLOR  FABLE  "); 
z = d + 060  ? 
strtxy  (55. ,28.)  ; 
out  ( z ) ; 

> 

return  ; 


447 

strtxy 

(40. ,90.)  ; 

448 

strout 

("16  - LEVEL  C0L09  DISPLAY")  ; 

449 

strtxy 

( ? 3 . , fto . ) ; 

450 

strout 

("This  oroqram  is  designer!  to  disolav  a 

data  field  with 

451 

strtxy 

(23. ,76.)  ; 

452 

s t rout 

("a  selected  16  level  color  table.  The 

p r o o r a m will  " ) 

453 

strtxy 

(23. ,72.)  ; 

454 

strout 

("convert  a data  matrix  named  T P 0 N E from 

ASCII  to”)  ; 

455 

strtxy 

(23. ,68.)  ; 

456 

strout 

("a  64  x 64  integer  array  and  then  disci 

ay  t h e " ) ; 

457 

strtxy 

(23. ,64.)  ; 

458 

s t rout 

("magnitude,  chase,  or  intensity  clot  as 

selected")  ; 

459 

strtxy 

(23. ,40.)  ; 

460 

st  rout 

("When  ready  to  continue  tvce  the  letter 

' c ’ '* ) ; 

461 

while 

( a !=  'c'  ) 

462 

a 

= retchar  ()  ; 

463 

x» 

n 

a 

1 •• 
t 

464 

erase 

()  ; 

465 

r e t u r n 

} 

466  > 

467 

468  oaoe2  ( ) 

469  { 

470  show  = 

o ; 

471 

q = 'b 

i • 

t 

472 

Strtxy 

• 

o 

cc 

. 

o 

nj 

473 

strout 

("You  will  now  inout  your  selection  for 

the  TYPF  of " ) ; 

474 

strtxy 

(20. ,76.)  ; 

475 

S t rout 

("disolay  you  wish  to  see.  Type  the  number  • 1 • " ) ; 

476 

Strtxy 

(20. ,72.)  ; 

477 

s t rout 

("if  you  want  to  see  the  MAGNITUDE  clot. 

type  the")  ; 

478 

strtxy 

(20. ,68.)  ; 

479 

strout 

("number  '2*  if  you  want  to  see  the  PHASE  plot")  ; 

480 

strtxy 

(20. ,64.)  ; 
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081 

strout 

Cor  tyoe  "the  number  *3*  if  you  wish  to  see  the" 

082 

S t r t x y 

(20. ,60.)  ? 

083 

s t rout 

("INTENSITY  plot.  Followed  by  a CP.  " ) ; 

080 

s t r t x y 

(?o., so.)  ; 

085 

St  rout 

(n  i - magnitude  h)  ; 

086 

s t r t x y 

(20., 06.)  ; 

087 

st  rout 

("  2 - PH ASF  ")  ; 

088 

s t r t x y 

(20. ,02.)  ; 

089 

st  rout 

("  3 - INTENSITY  M)  ; 

090 

w h i 1 e 

( show  = = 0 ) 

091 

show  = aetnum  (10)  ; 

092 

s t r t x y 

(20. ,30.)  ; 

093 

s t rou  t 

("when  ready  to  continue  tyoe  the  letter  'c'  ") 

090 

while 

( a 1=  'c  ’ ) 

095 

a 

- ret  char  ()  ; 

096 

Q = ' b 

1 • 
t 

097 

erase 

o ; 

098 

re  t u rn 

/ 

099 

1 

500 

501 

oaoe3  () 

502 

503 

a = * b 

i 

9 

500 

n = 99 

• 

9 

505 

s t r t x y 

(20. ,80.)  ; 

506 

s t rout 

("If  you  desire  to  see  the  color  tables  that”)  ’ 

507 

St  rt  xy 

(20. ,76.)  ; 

508 

strout 

("are  loaded  in  this  oroqram  that  you  may  choose 

509 

s t r t x y 

(20. ,72.)  ; 

510 

s t rout 

("from  for  disolavina  the  aata  tyoe  the  letter  ' 

511 

s t r t x y 

(20. ,68.)  ; 

512 

strout ( " If  you  already  know  what  color”)  } 

513 

S t r t xy 

(20. ,69.)  ; 

510 

St  rout 

("table  you  wish  to  use  or  if  you  do  not  desire 

515 

s t r t x y 

(20., 60.)  ; 

516 

strout 

("the  color  tables,  tyoe  the  letter  'o'  ")  ; 

517 

while 

( a ==  'b'  ) 

518 

Q 

= retchar  ( ) » 

519 

i f ( q 

==  ' y ' ) showc 1 r ( ) ; 

520 

erase 

o ; 

521 

col ort 

(0)  ; 

522 

color 

(15)  y 

523 

s t r t x y 

(20. ,50.)  ; 

520 

s t rout 

("Select  the  color  table  you  wish  to  use  ")  ; 

525 

s t r t x y 

(20. , 9o  . ) ; 

526 

s t rout 

("  o - Greys  1 - Blues")  ; 

527 

s t r t xy 

(20. ,92.)  ; 

528 

strout 

("2-Greens  3-Reds")  » 

529 

S t r t x y 

(20. ,38.)  ; 

530 

St  rout 

("  9 - Mixed  5 - Mixed")  ; 

531 

S t r t x y 

(20., 39.)  ; 

532 

strout 

("  6 - "ixed  7 - Mixed")  ; 

533 

S t r t xy 

(20. ,30.)  ; 

530 

s t rout 

C 8 - Mixed  Followed  bv  a CR  ")  ; 

535 

w h i 1 e 

( n ==  99  ) 

536 

n 

= net num  (10)  ; 

537 

a = * b 

1 • 
9 

538 

erase 

o ; 

539 

re  t u r n 

9 

500 

i 

see  3 . c 
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Sal 

5a? 

5a3 

saa 

sas 

5a6 

sa7 

saa 

sao 

sso 

551 

552 

553 
55a 

555 

556 

557 

558 

559 

560 

561 
56? 
563 
56a 

565 

566 

567 

568 

569 

570 

571 

572 

573 
57a 

575 

576 

577 

578 

579 

580 

581 

582 

583 
sea 

585 

586 

587 

588 

589 

590 

591 

592 

593 
59a 

595 

596 

597 

598 

599 

600 


/a****  PROGRAM  TO  DISPLAY  COLOR  TARLES  *****/ 


showc 1 r C ) 

{ 

flag  = 1 ; 

erase  C ) ? 

for  ( i =0;  i <o;  ) { 

a = 'b*  ; 

draw  ( i ) ; 

set  mode  (0,0)  ; 

S t r t x y (50. ,50.)  ; 

strout  ( M Next  color  table  ? y 

while  ( o ==  *6'  ) 

a = ret  char  ()  ; 

if  ( q s=  'n'  ) i = 10  J 
else  continue  ? 

> 

col ort  (0)  ; 
color  (15)  ; 

erase  ( ) ? 
r e t u r n ; . 


yes  f n = no  " ) 


> 

/*♦***  ROUTINE  TO  CHANGE  THE  TYPE  OR  COLOR  OP  THE  DISPLAY  *****/ 

chanae  ( ) 

< 

a = f b # ; 

St  rtxy  (20. ,90.)  ; 

strout  ("If  you  want  to  chanae  the  TYPE  or  COLOR  table  of  the"; 
strtxy  (20. ,86.)  ; 

strout  ("disolay  tvoe  the  letter  ' c ' . If  vou  want  to  auit  tvoe 

strtxy  (20. ,82.)  ; 

strout  ("the  letter  * a ' . " ) ; 

while  ( a - = ' b ' ) 

o = retchar  ()  ; 

if  ( a - - * q * ) 

finish  ( ) ; 

e 1 se 
{ 

erase  ( ) ; 
oaoe?  ()  ; 

n ~ 1 b ' ; 

strtxy  (20., 80.)  ; 

strout  ("If  you  want  to  chanqe  the  color  table  selected  tyo 
while  C o ==  ' b ' ) 

a = retchar  ()  ; 


if  ( q = = • y • 

erase  ( ) ? 
oaoe3  ()  ; 

> 

> 

disolay  ( ) ? 

return  ; 


) ( 


finish  ( ) 
{ 
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601 

a - d t 

602 

colort  (0)  ; 

603 

color  CIS)  ; 

6 0 4 

erase  ( ) 7 

60S 

strtxy  ( 20  • , 80  . ) ; 

606 

strout  ("You  have  indicated  that  you  wish  to  terminate  this  s < 

607 

strtxy  (20, *76*)  7 

608 

strout  ("if  you  do  wish 

to  stoo  tyoe  a capital  ’S'  • 0 1 h e r w i * 

609 

strtxy  (20. *72*)  7 

610 

strout  ("type  a 'c'  and 

you  can  continue." ) 7 . 

611 

while  ( a = = 1 h • ) 

612 

q = retchar  ()  ; 

613 

if  ( a ==  • S 1 ) 

614 

exit  ( ) 7 

615 

else 

616 

( 

617 

erased  7 

618 

chanoe  ()  7 

619 

> 

620  > 

<?<$ 


REFERENCES 


11]  Patton,  J.W.,  A Hardware  Design  for  a Computer  Aided 

Acoustic  Imaqinq  System,  Masters  Thesis,  Naval 
Postgraduate  School,  Monterey,  197-7. 

J 

12]  Powers,  J.R.,  DeBlors,  J . R . V . , O'Bryon,  R.T.  and  Patton  J . W . , 

'A  Computer  Aided  Ultrasonic  Imaqina  System',  Acoustical 
Holography  vol  8,  AF  Metherell,  Ed.,  pp  233-248,  Plenum 
Press,  1979 

[ 3 ] See  for  example  the  special  Issue  an  Acoustic  Tmagina, 

Proc  IEEE  April  1979 

[4]  Wade,  G.  Acoustic  Imaaina  with  Holography  and  Lenses, 

IEEE  Trans,  on  Sonics  and  Ultrasonics,  Vol  SU  - 22  No  6, 
pp  385  - 394,  1975 

15]  Thurstone,  F.L.  Ultrasound  Holography  and 

Visual  Reconstruction  Proc.  Symo.  Biomed  Ena.  1,12,  1Q68. 

[6]  Powers  J.P.  "Comouter  simulation  of  linear  acoustic 

diffraction".  Acoustical  Holoaraphy,  Vol.  7,  (L.W.  Kessler, 

Ed.)  Plenum  Press,  pp  193-205,1977. 

[7]  Kerniqham,  8.W.,  Proarami nq  in  C A tutorial.  Bell 

Laboratories,  Murry  Hill,  N.J. 

18]  "Ramtek  GX-100  A Proaramminq  Manual",  Ramtek  Corp,1974. 

C9]  "Ramtek  GX-1008  Proarammina  Manual,"  Ramtek  Corp.,1975. 

(101  Me  Neil  C.E.  and  Hanston  D.P.  The  Development  of  A User 

Oriented  Interface  for  a Computer  Driven  Graphics  Device, 
Masters  Thesis,  Naval  Postgraduate  School,  Monterey, 

June  1977. 

[Ill  Ritchie  D.M.  C Reference  Manual  Bell  Laboratori es,  Murray 
Hi  1 1 , M . J . 

1121  Kerniqham  8.W.  Unix  for  Reainners,  BEll  Laboratories  Murray 
Hill,  N.J.  [As  updated  by  C.E.  Trvine,  NPS  Computer 
Laboratory),  May  1978. 

1131  Ritchie  D.M.  and  Thompson  K.  The  Unix  Time  Sharinq  System 
Bell  Laboratories,  Murry  Hill,  N.J. 


99 


INITIAL  DISTRIBUTION  LIST 


1.  Defense  Document  Center  2 

Cameron  Station 

Alexandria/  Virqinia  2231  4 

2.  Library/  Code  0142  2 

Naval  Postgraduate  School 

Monterev/  California  9 39  4 0 

3.  Department  Ch a i rman , Code  62  1 

Department  of  Electrical  Enaineerina 

Naval  Postgraduate  School 
Monterey/  California  93940 

4.  Professor  J.  P.  Powers/  Code,62P0  5 

Department  of  Electrical  Enaineerina 

Naval  Postgraduate  School 
Monterev/  California  9 3 ° 4 0 

5.  Dr.  Newell  Rooth/  Code  6513  . 2 

Naval  Ocean  Systems  Center 

San  Dieao/  California  92152 

6.  Mr.  Norman  Caolan  1 

Automation/  B i oena i nee r i no  and 

Science  Systems  Proaram 
Engineering  Division 
National  Science  Foundation 
1800  G St  . 

Washington  D.C.  20550 

7.  Professor  G.A.  Rahe/  Code  52RA  1 

Department  of  Computer  Science 

Naval  Postgraduate  School 
Monterev/  California  93940 

8.  LT  Euaene  L.  Moon  USN  1 

5544  Charlotte  Way 

Livermore/  California  94550 


100 


Thes I s 

mi 

c.l 


186264 

Moon 

A lo  - level  color 
display  system  for  two 
dimensional  ultrasonic 
data. 


Thes  is  186264 

M727  Moon 

c.l  A 16  - level  color 

display  system  for  two 
dimensional  ultrasonic 
data. 


